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APPENDIX 1- PA41: 



List of FM functions with returned states 









1E72 


R_S PC_CON N ECT 


ST_OK, ER_NOK 


1E13 


R_ASK_BASE_MODEL PC 


ST_OK, ER_NOK 


1E15 


R_ASK_BASE_SVV_VERS PC 


ST_OK, ER_NOK 


1E76 


R_ROTPARAM_READ 


ST_OK, ER_NOK 


1E3E 


R_READ_DATETIME 


ST_OK, ER NOK 


1E17 


R_USER_TIMEOUT ONOFF PC 


ST_OK, ER NOK 


1E19 


R_LCW_ONOFF_PC 


ST_OK, ER NOK 


1E22 


R_READ_MACH_NR 


ST_OK, ER NOK 


1E97 


R_READ_NO_MACH 


ST_OK, ER NOK 


1E9B 


R_READ_NO_REMPL 


ST_OK, ER NOK 


1E32 


R_HV_ONOFF_PC 


ST_OK, ER NOK 


1E34 


R_DISP_DESC_ONOFF PC 


ST_OK, ER_NOK 


1E01 


R_KEYBOARD_ONOFF PC 


ST_OK, ER NOK 


1EBD 


R_BLK_FRANK MENU PC 


ST_OK, ER_NOK 


1E36 


R_BAT_ON_PC 


ST_OK, ER NOK 


1E38 


R_BAT READ PC 


ST_OK, ER_NOK 


1E3A 


R_BAT_CLEAR_PC 


ST_OK, ER_NOK 


1E7C 


R_G ET_COU NTE R 


ST_OK, ER_NOK 


1ECC 


R_PC_READ_MC TEXT 


ST_OK, ER NOK, ?ER MSTATE 


1E11 


R_TEXT_TO_DISPLAY PC 


ST_OK, ER NOK, ER DATLEN, ER FORMAT 


1E6A 


R_SPC_MC_COR 


ST_OK, ER_STANDBY, ER_CALL SERVICE, 
ER_DC_OPEN, ER DATLEN, ER PARAMETER 


1E63 


R_SPC_GO_QUIET 


ST_OK, ER ROTOR, ER DC OPEN, 
ER_CALL_SERVICE 


1 E74 


R_SPC_DEC SET 


All* 


1EBF 


R_PC_DEC_SET TAX 


All* 


1E68 


LSPC_QUIET 


ST_OK, ER_HSB_MS, ER_HSB HOT, ER HSB STBY, 
ER_HSB_FD 


1E5D 


l_PC_FRK_EVENT 


ST_OK, ST_QUIET, ST NEW DATE?, W .... L ... 


1E4D 


l_SPC_ROT_ERROR 


ER_CALL_SERVICE, ER_ROTOR, ER CROSS, 



1E03 



R_SPC_DISCONNECT 



ER_PRINTER_NOTREADY 



ST_OK, ER_ROTOR, ER_DC_OPEN, 

ER_CALL_SERVICE 



1E3C 



R_SET_TMS_PC 



ST 
ER 
ER 



.OK, ER_TMS_ABORT, ER_TMS_ABORT_MSG, 
l_TMS_TRANSM, ER_TMS_CONNECT, 
t_TMS_MODEM, ER_TMS_PHONE_BUSY, 
,TMS_MODEM_INIT. ER_TMS_ FAILED 




:.f! 
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Conversions 



Attribute VB_Name = "Conversions" 

'Module Conversions contains routines to convert values form one 
'type to another. 

Option Explicit 

'Converts enumerated type FMTYPES to a string with the name 

Function FMTypeToString ( FMType As FMTYPES) As String 
Select Case FMType 
Case F3XXPLUS 

FMTypeToString = "F3XXPLUS" 
Case Else 

FMTypeToString = " (unknown) " 
End Select 
End Function 

'Converts enumerated type BASES to a string with the name 

Function BaseModelToString (Base As BASES) As String 
Select Case Base 
Case B120 

BaseModelToString = "B120" 
Case B150 

BaseModelToString = "B150" 
Case B220 

BaseModelToString = "B220" 
Case B220P 

BaseModelToString = "B220P" 
Case B250P 

BaseModelToString = "B250P" 
Case B320P 

BaseModelToString = "B32 0P" 
Case B335 

BaseModelToString = "B335" 
Case B335P 

BaseModelToString = "B335P" 
Case B335R 

BaseModelToString = "B335R" 
Case B337 

BaseModelToString = "B337" 
Case B337P 

BaseModelToString = "B337P" 
Case B340P 

BaseModelToString = "B340P" 
Case BTEST 

BaseModelToString = "BTEST" 
Case Else 
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BaseModelToString = " (unknown) " 
End Select 

End Function 

'Composes the print image out of the information read from the EM 
and 

'returns it as string (e.g. 99.99 or 9999.900 etc.) 

Function CreatePrintlmage ( ) As String 

Dim Config As New FMCTRLLib . FMConf ig 'Create an new EMC 

onfig object 

Dim strPrintlmage As String 'Define needed var 

iables 

Dim strFixZeros As String 
Dim strPostPoint As String 
Dim strPrePoint As String 

' ! ] ! Error handling must be done in the calling function ! ! ! 

Config. ActiveConnection = fMainForm. Con 'Define the connec 

tion to be used by Config 

strPrintlmage = String (Config . DecadeNumber - 1, "9") T A "9" 

for each decade wheel do not add the last wheel yet 
■ If Config. LastDecadeType = LD09 Then 

strPrintlmage = strPrintlmage + "9" 'Add a "9" for the 

last decade wheel if last decade can be 0..9 
Else 

strPrintlmage = strPrintlmage + "5" 'Add a "5" for the 

last decade wheel if last decade be only 0 or 5 
End If 

strFixZeros = String (Config. FixedZeros, "0") 'A "0" for eac 

h fixed zero 

strPrintlmage = strPrintlmage + strFixZeros 'Add the zeros 

to the decade wheels 

If Config. DecPointPosition > 1 Then T If FM uses a 

decimal point 

strPostPoint = Right (strPrintlmage, Config . DecPointPositio 
n - 1) 'Copy the characters that follow the decimal point 

strPrePoint = Left ( strPrintlmage, Len (strPrintlmage) - Con 
fig. DecPointPosition + 1) 'Copy the characters that are before the 

strPrintlmage = strPrePoint + " . " + strPostPoint 1 Inser 
t the decimal point 
End If 
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CreatePrintlmage = strPrintlmage 'Return composed s 

tring 

Set Config = Nothing 'Disassociate Conf 

ig object 
End Function 

'Creates a format mask that can be used to format money values for 
displaying. 

•Attention: the "," (thousand sepparator) and the " . " (decimal poi 
nt) will be 

1 automatically replaced by the signs defined in the Win 

dows country 

' settings (e.g. "' " and ","). 

;.f| Function CreateCurrencyFormatMask ( ) As String 

m Dim Config As New FMCTRLLib . FMConf ig 'Create an new FMC 

m onfig object 

rn Dim strMask As String 'Define needed var 

v3 iables 

iil ' ! ! ! Error handling must be done in the calling function ! ! ! 

□ Conf ig. ActiveConnection = fMainForm. Con 'Define the connec 

SI tion to be used by Config 

m strMask = "##,##0" 'Define the initia 

O 1 mask 

M If Conf ig.DecPointPosition > 1 Then 'If FM uses a deci 

mal point 

'Add a "." and as 
many "0" as there are decades in the FM after the point 

strMask = strMask + " . " + String (Conf ig . DecPointPosition - 

1, "0") 
End If 

CreateCurrencyFormatMask = strMask 'Return mask 

Set Config = Nothing 'Disassociate Conf 

ig object 

End Function 

'Converts a True to a "Yes" and a False to a "No" 

Function BoolToYesNo (bBool As Boolean) As String 
If bBool Then 

BoolToYesNo = "Yes" 

Else 
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BoolToYesNo = "No" 
End If 
End Function 

'Composes a string containing a list of the names of all available 
Franking Modes 

Public Function FrankModesToString ( ) As String 

Dim Config As New FMCTRLLib . FMConf ig 'Create an new FMC 

onfig object 

Dim strFrkModes As String 'Define needed var 

iables 



' ! ! ! Error handling must be done in the calling function ! ! ! 

| 8 « Config. ActiveConnection = fMainForm. Con 'Define the connec 

tion to be used by Config 
!!_]( strFrkModes = "" 

If Config . FrankModeAvailNorm Then 
i]\ ailable 

ill strFrkModes = "Normal" 

End If 

i«% If Config. FrankModeAvailTape Then 

n ailable 

J I If Len (strFrkModes) > 0 Then 

ll dy an entry 

« strFrkModes = strFrkModes + " / " 

End If 

strFrkModes = strFrkModes + "Tapes" 
End If 

If Config. FrankModeAvailLetter Then 
If Len (strFrkModes) > 0 Then 

strFrkModes = strFrkModes + " / " 
End If 

strFrkModes = strFrkModes + "Letters" 
End If 

If Config. FrankModeAvailltem Then 
If Len (strFrkModes) > 0 Then 

strFrkModes = strFrkModes + " / " 
End If 

strFrkModes = strFrkModes + "Items" 
End If 

FrankModesToString = strFrkModes 



'If FRK_NORM is av 

'Set string 

'If FRK_TAPE is av 

'If there is alrea 

' Insert a / 

'Add Tapes 



Set Config = Nothing 
ig object 



'Return string 
' Disassociate Conf 
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End Function 

'Converts an index (used to identify the Franking Mode in a ComboB 
ox . ItemData) 

1 to enumerated type FRANKMODES 

Public Function IndexToFrankMode ( Index As Integer) As FRANKMODES 
Select Case Index 
Case 0 

IndexToFrankMode = FRK_NORM 
Case 1 

IndexToFrankMode = FRK_TAPE 
Case 2 

IndexToFrankMode = FRK_LETTER 
Case 3 

W IndexToFrankMode = FRK_ITEM 

™ End Select 

J:"]f End Function 

:f 'Select the whole text of the given TextBox. 

^{Public Sub SelectAll (txtBox As TextBox) 
!sM txtBox . SelStart = 0 

!!„ txtBox . SelLength = Len (txtBox . Text) 

;;:fEnd Sub 

»; f Get the appropriate text message to a return value from the FM Co 
%l ntrol library. 

i= " Public Function RetValToText (RetVal As RETVALS) As String 
Dim s As String 

Select Case RetVal 
Case R_OK 

s = "OK, function successful." 
Case E_NOK 

s = "Not OK, general error." 
Case R_NEWDATE 

s = "Print date has changed." 
Case R_QUIET 

s = "FM in QUIET state." 
Case R_HVLIM 

s = "Postage is above High Value limit." 
Case E_TIMEOUT 

s = "Timeout has run down." 
Case E_CALLSERVICE 

s = "Call a service technician." 
Case E ROTOR 
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s = "Error on rotor." 
Case E_CROSS 

s = "Cross error." 
Case E_BAS E S PEED 

s = "Speed of base to high." 
Case E_DECADE 

s = "Decade wheels can not be set." 
Case E_PRINTER 

s = "Printer error." 
Case W_DESCREG 

s = "Low Credit warning (soon no more funds) . 11 
Case W_ASCREG 

s = "Ascending counter warning level reached." 
Case W_MAXITEMS 

s = "Item counter warning level reached." 
Case W_READING 

s = "Reading warning level reached." 
Case W_BATTERY 

s = "Battery expiration date reached." 
Case L_DESCREG 

s = "No more funds (descending counter is zero) ." 
Case L_ASCREG 

s = "Ascending register limit reached." 
Case L_MAX I TEMS 

s = "Item counter limit reached." 
Case L_READING 

s = "Reading limit reached." 
Case L_BATCHCOUNTER 

s = "Batch counter full." 
Case L_DPT 

s = "Department counter full." 
Case L_TOT 

s = "Since Total statistics counter full." 
Case E_HSB_KEY ' RetVals for H 

SB (high speed base) 

s = "Key of high speed base is in wrong position." 
Case E_HSB_HOT 

s = "High speed base too hot." 
Case E_H S B_S T ANDB Y 

s = "High speed base is on standby." 
Case E_HSB_INKCOVER 

s = "Ink cover of high speed base is open." 
Case Else 

s = "Error: unhandled RetVal ! " 
End Select 

RetValToText = s 
End Function 
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'Get the appropriate short text message to a return value from the 

FM Control library. 
'These short texts are used for displaying in the Frankings list o 
f frmFranking 

Public Function RetValToShortText (RetVal As RETVALS) As String 
Dim s As String 

Select Case RetVal 
Case R_OK 

s = "OK" 
Case E_NOK 

s = "Error" 
Case R_NEWDATE 

s = "New Date" 
Case R_QUIET 

s = "QUIET" 
Case R_HVLIM 

s = "HV limit" 
Case E_TIMEOUT 

s = "Timeout" 
Case E_CALLSERVICE 

s = "Call service" 
Case E_ROTOR 

s = "Rotor error" 
Case E_CROSS 

s = "Cross error" 
Case E_BASE SPEED 

s = "Base speed" 
Case E_DECADE 

s = "Decade error" 
Case E_PRINTER 

s = "Printer error" 
Case W_DESCREG 

s = "Low Credit" 
Case W_ASCREG 

s = "Warning: Ascending" 
Case W_MAX ITEMS 

s = "Warning: Items" 
Case W_READING 

s = "Warning: Reading" 
Case W_BATTERY 

s = "Warning: Battery" 
Case L_DESCREG 

s = "No more funds" 
Case L_ASCREG 

s = "Limit: Ascending counter" 
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Case L_MAX I TEMS 

s = "Limit: Item counter" 
Case L_READING 

s = "Limit: Reading" 
Case L_BATCHCOUNTER 

s = "Batch counter full" 
Case L_DPT 

s = "Department full" 
Case L_TOT 

s = "Statistics full" 
Case Else 

s = "Error: unhandled RetVal ! " 
End Select 

RetValToShortText = s 
End Function 

'Displays the appropriate message box to a return value from the F 
M Control library. 

'Some of the messages need to be answered and an action must be ta 
ken. 

Public Sub ProcessRetVal (RetVal As RETVALS) 
Dim msg As String 

Dim MsgBoxStyle As VbMsgBoxStyle 
Dim bShowMsgBox As Boolean 
Dim NL As String 

NL = Chr(13) 'Define newline character 

bShowMsgBox = True 

msg = RetValToText (RetVal) 'Get the text message for 

the RetVal 

Select Case RetVal 
Case R_OK 

bShowMsgBox = False 'Do not show message box 

frmFranking. sbStatusBar . SimpleText = "Ready for Franking" 
'Write to StatusBar of frmFranking 
Case E_NOK 

MsgBoxStyle = vbCritical 
Case R_NEWDATE 

msg = msg + NL + "Confirm new date?" 

MsgBoxStyle = vbYesNo + vbQuestion 'Message box w 

ith Yes and No buttons 

If vbYes = MsgBox (msg, MsgBoxStyle) Then 'If Yes clicke 

d 

Conf irmNewDate 'Confirmation 
is sent to FM 
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End If 

bShowMsgBox = False 'Do not show a 

dditional message box 
Case R_QUIET 

frmFranking. sbStatusBar . SimpleText = "Quiet" 'Write to 

StatusBar of frmFranking 

MsgBoxStyle = vblnf ormation 

bShowMsgBox = False f Do not show m 

essage box 

Case R_HVLIM 

msg = msg + NL + "Accept high postage?" 

MsgBoxStyle = vbYesNo + vbQuestion 'Message box w 

ith Yes and No buttons 

AnswerHVLimit (MsgBox (msg, MsgBoxStyle)) 'Send message 

I to FM depending on the button pressed 

I bShowMsgBox = False 'Do not show a 

idditional message box 
j Case E_TIMEOUT 

j msg = msg + NL + "Decades not set." 

! MsgBoxStyle = vblnf ormation 

j Case E_CALLSERVICE, E_ROTOR, E_CROSS, E_BASE S PEED , E_DECADE, E 

]_PRINTER 

msg = msg + NL + "Decades not set," 
I MsgBoxStyle = vbCritical 

1 Case W_DESCREG, W_ASCREG, W_MAXITEMS, W_READING, W_BATTERY 

j msg = msg + NL + "Decades not set," 

i MsgBoxStyle = vblnf ormation 

\ Case L_DESCREG, L_ASCREG, L_MAX I TEMS , L_READING/ L_BATCHCOUNTE 

~*R, L_DPT, L_TOT 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vbExclamation 
Case E_HSB_KEY, E_HSB_HOT, E_HS B_S TANDB Y , E_HSB_INKCOVER 

msg = msg + NL + "Decades not set." 

MsgBoxStyle = vblnf ormation 
Case Else 

MsgBoxStyle = vbCritical 
End Select . 

If bShowMsgBox Then 

MsgBox msg, MsgBoxStyle 'Show message 

box with parameters declared above 

End If 
End Sub 

'Send HVDeblock or HVAbort depending on the message box result 

Private Sub AnswerHVLimit (MsgBoxResult As VbMsgBoxResult ) 

Dim Actions As New FMCTRLLib . FMActions 'Create an new FMA 
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Conversions 



ctions obj ect 

Dim Ret As RETVALS 'Define needed var 

iables 

' ! ! ! Error handling must be done in the calling function ! ! ! 

Actions . ActiveConnection = fMainForm. Con 'Define the connec 
tion to be used by Actions 

If MsgBoxResult = vbYes Then 'If Yes clicked in 

message box 

Ret = Actions . HVLimi tDeblock 'Send High Value d 

eblock message 

Else 'No clicked in mes 

a sage box 

: Ret = Actions .HVLimi tAbort 'Send High Value a 

fbort message 
: End If 

J Set Actions = Nothing 'Disassociate Acti 

Jons object 

; ProcessRetVal Ret 'Process Ret (show 

J message if necessary) 
11 End Sub 

J 1 Sends New Date Confirmation to FM (the FM then adjusts date if it 
j has automatic date, or 

""'supposes that the user has adjusted the date manually. 

Private Sub Conf irmNewDate ( ) 

Dim Actions As New FMCTRLLib . FMActions 'Create an new FMA 

ctions object 

' ! ! ! Error handling must be done in the calling function ! ! ! 

Actions . ActiveConnection = fMainForm. Con 'Define the connec 

tion to be used by Actions 

Actions .NewDateConf irm ' Send confirmation 

Set Actions = Nothing 'Disassociate Acti 

ons object 

End Sub 
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ErrorHandler 



Attribute VB_Name = "ErrorHnd" 
Option Explicit 

'Displays an error message for the last error occured. 

'The exceptions of the FM Control library are converted using vbOb 

j ectError as offset . 

Sub ErrorHandler ( ) 

Dim msg As String 

Dim MsgBoxStyle As VbMsgBoxStyle 
MsgBoxStyle = vbCritical 
Select Case Err. Number 

Case NOCONNECTION + vbObj ectError To UNKNOWN + vbObj ectError 
'All FM Control ExceptionlDs 
msg = Err .Description + " (" + CStr (Err .Number - vbObjectE 
rror) + ")." 'Convert error numbers using vbOj ectError 

Case 13 'Type missmatch - occurs when trying to conver 

t a text into a number 

msg = "One or more of the entered values are invalid" + " 
(" + CStr (Err .Number) + ")." 

Case Else 'Display all other messages as they are 

msg = Err .Description + " ( " + CStr (Err .Number ) + ")." 

End Select 

'msg = msg + Chr(13) + "Source: " + Err. Source 'Display 
source on a new line 

MsgBox msg, MsgBoxStyle 'Show mess 

age 

End Sub 
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Start 



Attribute VB_Name = "Start" 
'Application starts with this module 

Option Explicit 

Public fMainForm As frmMain 
Global nComPort As Integer 

'Application starts with this Sub 

Sub Main ( ) 

Set fMainForm = New frmMain 'Create new frmMain 

fMainForm. Show 
End Sub 
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VERSION 5.00 

Begin VB . Form frmAbout 
BorderStyle 
Caption = 
ClientHeight 
ClientLeft = 
ClientTop = 
ClientWidth 
ClipControls 
Icon 

LinkTopic 
MaxButton 
MinButton = 
ScaleHeight 
ScaleWidth 
ShowInTaskbar = 
StartUpPosition = 
Tag 

Begin VB . PictureBox 
AutoSize 
BackColor 
ClipControls 
Height 
Left 
Picture 
ScaleHeight 
ScaleMode 
ScaleWidth 
Tab Index 
TabS top 

Top - 
Width 

End 

Begin VB . CommandBut ton 



3 1 Fixed Dialog 
"About" 
3630 
45 
330 
5865 

0 'False 
"frmAbout . frx" : 0000 
" Forml " 
0 » False 
0 'False 
3630 
5865 

0 1 False 

1 * CenterOwner 
"About Projectl" 
piclcon 

- 1 1 True 
&H00C0C0C0& 
0 1 False 
540 
240 

"frmAbout .frx" : 0442 
480 

User 



0 
4 80 
2 
0 

240 
540 



1 False 



cmdOK 



Cancel 




- l • True 


Caption 




"OK" 


Default 




- 1 ' True 


Height 




345 


Left 




4245 


Tab Index 




0 


Tag 




"OK" 


Top 




2625 


Width 




1467 



End 

Begin VB . CommandBut ton 
Caption = 
Height 
Left 

Tablndex 
Tag 
Top 
Width 
End 

Begin VB. Label lbLibraryVerison 
Caption = 



cmdSysInf o 
"&System Info. 
345 
4260 
1 

"&System Info. 
3075 
1452 



Height 
Left 

Tablndex 

Top 

Width 



"Library Version" 
255 
1050 
8 

960 
4095 



End 



Begin VB. Label Label 1 

Caption = "Ascom Autelca AG Mailing Systems" 

Height = 2 55 

Left = 1050 

Tablndex = 7 

Top = 132 0 

Width = 4095 

End 

Begin VB. Label lblDescription 

Caption = $" f rmAbout . f rx" : 0884 

ForeColor = &H00000000& 

Height = 690 

Left = 1050 

Tablndex = 6 

Tag = "App Description" 

Top = 1680 

Width = 4095 

End 

Begin VB. Label lblTitle 

Caption = "Application Title" 

ForeColor = &HOO00O000& 

Height = 24 0 

Left = 1050 

Tablndex = 5 

Tag = "Application Title" 

Top = 24 0 

Width = 4095 

End 

Begin VB.Line Linel 

BorderColor = &H00808080& 

BorderStyle = 6 'Inside Solid 

Index = l 

XI = 225 

X2 = 5657 

Yl = 2430 

Y2 = 2430 

End 

Begin VB.Line Linel 

BorderColor = &H0 0FFFFFF& 

BorderWidth = 2 

Index = 0 

XI = 240 

X2 = 5657 

Yl = 2445 

Y2 = 2445 

End 

Begin VB. Label lblVersion 

Caption = "Version" 

Height = 255 

Left = 1050 

Tablndex - 4 

Tag = "Version" 

Top =60 0 

Width = 4095 

End 

Begin VB. Label lblDisclaimer 

ForeColor = &HO00O0OOO& 

Height = 825 

Left = 255 

Tablndex = 3 

Tag = "Warning: ..." 



Top = 2 625 

Width = 3750 

End 

End 

Attribute VB_Name = " f rmAbout " 
Attribute VB_Global Name Space = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 

' Reg Key Security Options. . . 
Const KEY ALL ACCESS = &H2 0 03F 



* Reg Key ROOT Types . . . 

Const HKE Y_LOCAL_MACH I NE = &H8 0 000002 
Const ERROR_SUCCESS = 0 

Const REG_SZ = 1 ' Unicode nul terminated string 

Const REG_DWORD = 4 » 3 2 -bit number 

Const gREGKEYS YS INFOLOC = " SOFTWARE \ Mi crosof t\Shared Tools Location" 
Const gREGVALSYS INFOLOC = "MSINFO" 

Const gREGKEYS YS INFO = " SOFTWARE\Mi crosof t\Shared Tools\MSINFO" 
Const gREGVALSYS INFO = "PATH" 



Private Declare Function RegOpenKeyEx Lib "advapi32" Alias 
"RegOpenKeyExA" (ByVal hKey As Long, ByVal IpSubKey As String, ByVal 
ulOptions As Long, ByVal samDesired As Long, ByRef phkResuit As Long) As 
Long 

Private Declare Function RegQueryValueEx Lib "advapi32" Alias 
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, 
ByVal lpReserved As Long, ByRef IpType As Long, ByVal lpData As String, 
ByRef lpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) 
As Long 

Private Sub Form_Load ( ) 

lblVersion . Caption = "Version " & App. Major & " . " & App. Minor & " . " 
& App. Revision 

lblTitle. Caption = App. Title 

lbLibraryVerison . Caption = "FM Control library version " + 
fMainForm.Con.LibraryVersion 'Display Version of FM Control Library 

End Sub 

Private Sub cmdSysInf o__Click ( ) 
Call StartSysInfo 

End Sub 

Private Sub cmdOK_Click ( ) 
Unload Me 

End Sub 

Public Sub StartSysInfo ( ) 

On Error GoTo SysInfoErr 



Dim rc As Long 

Dim SysInfoPath As String 



' Try To Get System Info Program Path\Name From Registry. . . 
If Get Key Value (HKEY_LOCAL_MACHINE, gREGKEYS YS INFO , 
gREGVALS YS INFO , SysInfoPath) Then 

• Try To Get System Info Program Path Only From Registry... 
Elself GetKeyValue (HKEY_LOCAL_MACHINE , gREGKEYSYSINFOLOC , 
gREGVALS YS I NFOLOC , SysInfoPath) Then 

' Validate Existance Of Known 32 Bit File Version 
If (Dir (SysInfoPath & "\MSINF03 2.EXE") <> "") Then 
SysInfoPath = SysInfoPath & " \MSINF032 . EXE" 



• Error - File Can Not Be Found. . . 
Else 

GoTo SysInfoErr 

End If 

' Error - Registry Entry Can Not Be Found... 
Else 

GoTo SysInfoErr 

End If 



Call Shell (SysInfoPath, vbNormal Focus) 

Exit Sub 
SysInfoErr : 

MsgBox "System Information Is Unavailable At This Time", 

vbOKOnly 
End Sub 



Public Function GetKeyValue (Key Root As Long, KeyName As String, 
SubKeyRef As String, ByRef KeyVal As String) As Boolean 
Dim i As Long 

Counter 

Dim rc As Long 

Code 

Dim hKey As Long 
To An Open Registry Key 

Dim hDepth As Long 

Dim KeyValType As Long 
Type Of A Registry Key 

Dim tmpVal As String 
Tempory Storage For A Registry Key Value 

Dim KeyValSize As Long 
Of Registry Key Variable 



Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE . . .} 



rc = RegOpenKeyEx (KeyRoot, KeyName, 0, KEY_ALL_ACCESS , hKey) 1 
Open Registry Key 



If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError • Handle 

Error . . . 



Loop 

Return 

Handle 

Data 
Size 



tmpVal = String$ (1024 , 0) 
Variable Space 



Allocate 



KeyValSize = 1024 ■ Mark 

Variable Size 



1 Retrieve Registry Key Value... 

i 

rc = RegQueryValueEx (hKey, SubKeyRef, 0, KeyValType, tmpVal , 
KeyValSize) 1 Get/Create Key Value 



Errors 



If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle 

tmpVal = VBA . Left ( tmpVal , InStr ( tmpVal , VBA.Chr(O)) - 1) 

i 

' Determine Key Value Type For Conversion. . . 

i 

Select Case KeyValType » Search 

Data Types ... 

Case REG_S2 ■ String 

Registry Key Data Type 

KeyVal = tmpVal 
Copy String Value 

Case REG_DWORD • Double 

Word Registry Key Data Type 

For i = Len (tmpVal) To 1 Step -1 • 

Convert Each Bit 

KeyVal = KeyVal + Hex (Asc (Mid (tmpVal , i, 1))) 
* Build Value Char. By Char. 

Next 

KeyVal = Format$("&h" + KeyVal) 1 
Convert Double Word To String 
End Select 

GetKeyValue = True f Return 

Success 

rc = RegCloseKey (hKey) ' Close 

Registry Key 

Exit Function • Exit 

GetKeyError: • Cleanup After An Error Has Occured. . . 

KeyVal = " " 1 Set 

Return Val To Empty String 

GetKeyValue = False ' Return 

Failure 

rc = RegCloseKey (hKey)* ■ Close 

Registry Key 
End Function 



VERSION 5 . 00 

Object = " {BDC217C8-ED16- 
Begin VB . Form frmConfig 



11CD-956C-OOOOC04E4COA}#1. 1#0" ; " TABCTL3 2 . OCX " 



BorderStyle 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

KeyPreview = 
LinkTopic 
MaxButton 
MinButton 
ScaleHeight 
ScaleWidth 
ShowInTaskbar = 
StartUpPosition = 
Begin TabDlg.SSTab 

Height 

Left 

Tablndex 

Top 

Width 

_ExtentX 

_ExtentY 

__Version 

Style 

Tabs 

TabsPerRow 
TabHeight 
TabCaption (0) 
TabPicture (0) 



3 "Fixed Dialog 

" Configuration" 

4920 

2565 

1500 

5910 

"frmConfig. frx" : 0000 

- 1 1 True 

" Forml" 

0 'False 

0 'False 

4920 

5910 

0 'False 

1 • CenterOwner 
tabConf ig 

4215 

120 

13 

120 

5655 

9975 

7435 

393216 

1 

2 

2 

520 

= "Properties" 
= " frmConfig . frx" : 0442 



Tab (0) .ControlEnabled= -1 'True 
Tab ( 0 ) . Control ( 0 ) = " f raFrankingModes " 
Tab(0) .Control (0) .Enabled= 0 'False 
Tab ( 0 ) . Control ( 1 ) = " f raGeneral " 
Tab(0) .Control (1) .Enabled= 0 'False 
Tab(0) .Control (2)= " fraPrint Image " 
Tab(0) .Control (2) . Enabled= 0 'False 
Tab(0) .Control (3)= "fraBase" 
Tab{0) .Control (3) .Enabled= 0 'False 
Tab{0) .Control (4) = " f raFeatures " 
Tab(0) .Control (4) . Enabled= 0 'False 
Tab(0) .Control Count = 5 
TabCapti on(l) = "Settings" 
TabPicture (1) = " frmConfig . frx" : 04 5E 
Tab(l) .ControlEnabled= 0 'False 



Tab(l) 
Tab ( 1 ) 
Tab(l) 
Tab(l) 
Tab(l) 
Tab(l) 
Tab(l) 



.Control (0) = 
.Control (1) = 
.Control (2) = 
.Control (3) = 
.Control (4) = 
.Control (5) = 
. ControlCount= 



" f raLowCredi tWarn " 
" f raUserTimeout " 
"f raKeyboard" 
" f raHighValue " 
" f raFrankMenu" 
" f raDescReg" 
6 



Begin VB. Frame 
Caption 
Height 
Left 

Tablndex 
Top 



f raLowCredi tWarn 

= "Low Credit warning" 
1095 
-72120 
53 
480 



Width = 2535 

Begin VB . CommandButton cmdLowCreditWarnDeact ivate 
Caption = "Deactivate" 

Height = 495 

Left = 1320 

Tablndex = 7 

Top = 3 60 

Width = 975 

End 

Begin VB . CommandButton cmdLowCreditWarnActivate 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"Activate" 

495 

240 

6 

360 
975 



End 



End 

Begin VB . Frame fraUser Time out 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"User timeout" 

1095 

-72120 

52 

2880 
2535 



Begin VB . CommandButton cmdUserTimeOutDeact ivate 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"Deactivate " 

495 

1320 

11 

360 

975 



End 

Begin VB . CommandButton cmdUserTimeOutActivate 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"Activate" 

495 

240 

10 

360 

975 



End 



End 

Begin VB. Frame fraKeyboard 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"FM keyboard" 

1095 

-74760 

51 

2880 
2055 



Begin VB . CommandButton cmdKeyboardUnlock 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"Unlock" 

495 

1080 

5 

360 
735 



End 

Begin VB . CommandButton cmdKeyboardLock 



Caption 

Height 

Left 



"Lock" 

495 

240 



Tab Index = 4 

Top = 360 

Width = 735 

End 

End 

Begin VB. Frame fraHighValue 

Caption = "High Value limit" 

Height = 1095 

Left = -72120 

Tab Index = 50 

Top = 1680 

Width = 2535 
, Begin VB . CommandButton cmdHVDeactivate 

Caption = "Deactivate" 

Height = 495 

Left = 1320 

Tab Index = 9 

Top = 360 

Width = 975 

End 

Begin VB . CommandButton cmdHVActivate 

Caption = "Activate" 

Height = 495 

Left = 240 

Tablndex = 8 

Top = 360 

Width = 975 

End 

End 

Begin VB. Frame fraFeatures 

Caption = "Features" 

Height = 1020 

Left = 2880 

Tablndex = 43 

Top = 2160 

Width = 2535 
Begin VB. Label lbNrMailClass 

Caption = "4" 

Height = 2 55 

Left = 1600 

Tablndex = 4 9 

Top = 72 0 

Width = 900 

End 

Begin VB. Label lbMargin 

Caption = "Yes" 

Height = '255 

Left = 1600 

Tablndex = 4 8 

Top = 48 0 

Width = 900 

End 

Begin VB. Label IbAutoDate 

Caption = "Yes" 

Height = 255 

Left = 1600 

Tablndex = 4 7 

Top = 240 

Width = 900 

End 

Begin VB. Label lbNrMailClassLabel 



Caption = "Nr. of Mail Classes 

Height = 255 

Left = 120 

Tablndex = 4 6 

Top = 720 

Width = 1400 

End 

Begin VB. Label lbMarginLable 

Caption = "Margin settable:" 

Height = 255 

Left = 120 

Tablndex = 4 5 

Top = 480 

Width = 1400 

End 

Begin VB. Label IbAutoDateLabel 

Caption = "Automatic date:" 

Height =2 55 

Left = 120 

Tablndex = 44 

Top = 240 

Width = 1400 

End 

End 

Begin VB . Frame fraBase 

Caption = "Base" 

Height = 1020 

Left = 240 

Tablndex = 3 8 

Top = 2160 

Width = 2535 

Begin VB. Label lbBaseSof tware 

Caption = "0000000B" 

Height = 255 

Left = 1000 

Tablndex = 42 

Top = 600 

Width = 1500 

End 

Begin VB. Label lbBaseModel 

Caption = "B335P" 

Height = 2 55 

Left = 1000 

Tablndex = 41 

Top = 3 00 

Width = 1500 

End 

Begin VB. Label lbSof twareLabel 

Caption = "Software:" 

Height = 2 55 

Left = 120 

Tablndex = 4 0 

Top = 6 00 

Width = 700 

End 

Begin VB. Label lbModelLabel 

Caption = "Model : " 

Height = 255 

Left = 120 

Tablndex = 3 9 

Top = 3 00 



Width = 700 

End 

End 

Begin VB . Frame f raPrintlmage 

Caption = "Print image" 

Height = 1500 

Left = 2880 

Tablndex = 27 

Top = 480 

Width = 2535 

Begin VB. Label lbPrint Image 

Caption = "99999.00" 

Height = 255 

Left = 1500 

Tablndex = 37 

Top = 1200 

Width = 1000 

End 

Begin VB. Label lbLastDecade 

Caption = "0 . . 9" 

Height = 2 55 

Left = 1500 

Tablndex = 3 6 

Top = 960 

Width = 1000 

End 

Begin VB. Label lbFixZeros 

Caption = "2" 

Height = 255 

Left = 1500 

Tablndex = 35 

Top = 72 0 

Width = 1000 

End 

Begin VB. Label lbDecPos 

Caption = "2" 

Height = 255 

Left = 1500 

Tablndex = 34 

Top = 480 

Width = 1000 

End 

Begin VB. Label lbNrDecades 

Caption = "5" 

Height = 255 

Left = 1500 

Tablndex = 33 

Top = 24 0 

Width = 1000 

End 

Begin VB. Label lbPrintlmageLabel 

Caption = "Print image:" 

Height = 2 55 

Left = 120 

Tablndex = 3 2 

Top = 1200 

Width = 1300 

End 

Begin VB. Label IbLastDecadeLabel 

Caption = "Last decade type: 

Height = 255 



Left = 120 

Tablndex = 31 

Top = 960 

Width = 1300 

End 

Begin VB. Label lbFixZerosLabel 

Caption = "Nr. of fixed zeros: 

Height = 255 

Left = 120 

Tablndex = 3 0 

Top = 72 0 

Width = . 1300 

End 

Begin VB. Label lbDecPosLabel 

Caption = "Decimal position:" 

Height = 255 

Left = 120 

Tablndex = 2 9 

Top = 480 

Width = 1300 

End 

Begin VB. Label IbNrDecadesLabel 

Caption = "Nr. of decades:" 

Height = 255 

Left = 120 

Tablndex = 2 8 

Top = 240 

Width = 1300 

End 

End 

Begin VB . Frame fraGeneral 

Caption = "General" 

Height = 1500 

Left = 240 

Tablndex =18 

Top = 480 

Width = 2535 

Begin VB. Label lbFMSoftware 

Caption = "JPAB00 5H" 

Height = 255 

Left = 1200 

Tablndex = 26 

Top = 72 0 

Width = 1300 

End 

Begin VB. Label lbSerialNr 

Caption s = "123456" 

Height s = 255 

Left = 1200 

Tablndex = 2 5 

Top =480 

Width =13 00 

End 

Begin VB. Label lbFMType 

Caption = "F3XXPLUS" 

Height = 255 

Left = 1200 

Tablndex = 24 

Top = 24 0 

Width = 1300 

End 



Begin VB. Label IbApplication 

Caption = "Auto Tax with Acquisition Tax" 

Height = 495 

Left = 1200 

Tablndex = 23 

Top = 960 

Width = 1300 

End 

Begin VB. Label IbApplicationLabel 

Caption = "Application:" 

Height = 255 

Left = 120 

Tablndex = 22 

Top = 960 

Width = 1000 

End 

Begin VB. Label lbFMSof twareLabel 

Caption = "FM Software:" 

Height = 255 

Left = 120 

Tablndex =21 

Top = 72 0 

Width = 1000 

End 

Begin VB. Label IbSerialNrLabel 

Caption = "Serial Nr. : " 

Height = 255 

Left = 120 

Tablndex - 2 0 

Top = 480 

Width = 1000 

End 

Begin VB. Label lbFMTypeLabel 

Caption = "FM Type:" 

Height = 2 55 

Left = 120 

Tablndex = 19 

Top = 240 

Width = 1000 

End 

End 

Begin VB . Frame f raFrankingModes 

Caption = "Franking Modes" 

Height = 6 00 

Left = 2880 

Tablndex = 16 

Top « 3360 

Width = 2535 

Begin VB. Label lbFrankModes 

Caption = "Normal / Tapes / Letters / Items" 

Height = 255 

Left = 120 

Tablndex = 17 

Top = 3 00 

Width = 2380 

End 

End 

Begin VB. Frame fraFrankMenu 

Caption = "Franking menu" 

Height = 1095 

Left = -74760 



Tablndex = 15 

Top = 168 0 

Width = 2055 

Begin VB . CommandButton cmdFrankMenuUnLock 
Caption = 



Height 
Left 

Tablndex 

Top 

Width 



"Unlock" 
495 
1080 
3 

360 
735 



End 

Begin VB . CommandButton cmdFrankMenuLock 



Caption = 

Height 

Left 

Tablndex 

Top 

Width 

End 

End 

Begin VB. Frame fraDescReg 
Caption = 
Height 
Left 



"Lock" 
495 
240 
2 

360 
735 



Tablndex 

Top 

Width 



"Descending register" 
1095 
-74760 
14 
480 
2055 



Begin VB . CommandButton cmdDescRegHide 



Captxon 

Height 

Left 

Tablndex 

Top 

Width 



"Hide " 
495 
1080 
1 

360 
735 



End 

Begin VB . CommandButton cmdDesc Reg Show 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"Show" 
495 
240 
0 

360 
735 



End 



End 



End 

Begin VB . CommandButton cmdClose 



Cancel 
Caption 
Height 
Left 

Tablndex 

Top 

Width 



- 1 1 True 

"Close" 

375 

4680 

12 

4455 
1095 



End 



End 

Attribute VB_Name = "frmConfig" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

• frmConfig displays the properties of the connected 



' Franking Machine and allows to change its settings. 
Option Explicit 



Private Sub cmdClose_Click { ) 

Unload Me 
End Sub 



Private Sub cmdDescRegHide_Click ( ) 

Dim Config As New FMCTRLLib . FMConf ig 
object 

On Error GoTo ErrorHandler : 
case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Conf ig. ActiveConnection = f MainForm . Con 
to be used by Config 

Config . DescRegHide 
register 

Screen .MousePointer = vbDefault 
pointer 

Set Config = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
object 
End Sub 



•Create an new FMConf ig 
'Jump to ErrorHandler in 
'Show hourglass mouse 
'Define the connection 

•Hide Descending 

'Show default mouse 
•Disassociate Config 

'Show default mouse 
'Handle errors (show 
•Disassociate Config 



Private Sub cmdDescRegShow_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen . MousePointer = vbHourglass 

Conf ig .ActiveConnection = f MainForm . Con 

Conf ig.DescRegShow 'Show Descending 

registier 



Screen .MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 



Private Sub cmdFrankMenuLock_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen . MousePointer = vbHourglass 

Conf ig. ActiveConnection = f MainForm. Con 



Conf ig . FrankMenuLock 

Screen . MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 



' Lock Franking menu 



Private Sub cmdFrankMenuUnLock_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen .MousePointer = vbHourglass 

Conf ig .Act iveConnect ion = f MainForm. Con 



Config . FrankMenuUnlock 

Screen. MousePointer - vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 



'Unlock Franking menu 



Private Sub cmdHVActivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen .MousePointer = vbHourglass 

Conf ig .Act iveConnect ion = f MainForm. Con 



Config . HVLimit Activate 
limit 



•Activate High Value 



Screen .MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdHVDeactivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen. MousePointer = vbHourglass 

Conf ig. Act iveConnect ion = f MainForm. Con 



Conf ig. HVLimitDeact ivate 
limit 



'Deactivate High Value 



Screen. MousePointer = vbDefault 
Set Config = Nothing 
Exit Sub 



ErrorHandler : 

Screen . MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdKeyboardLock_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen . MousePointer = vbHourglass 

Config .Act iveConnect ion - f MainForm. Con 

Config . KeyboardLock "Lock FM keyboard 

Screen . MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdKeyboardUnlock_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen . MousePointer = vbHourglass 

Config .Act iveConnect ion = f MainForm . Con 

Config . KeyboardUnlock 'Unlock FM keyboard 

Screen . MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler: 

Screen .MousePointer = vbDefault 

ErrorHandler 

Set Conf ig = Nothing 
End Sub 

Private Sub cmdLowCreditWarnActivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen .MousePointer - vbHourglass 

Conf ig .Act iveConnect ion - f MainForm . Con 

Conf ig . WarningLowCreditActivate 'Activate Low Credig 

warning 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 





Private Sub cmdLowCreditWarnDeact ivate_Click ( ) 'See Sub 
cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler : 

Screen. MousePointer = vbHourglass 

Config. Act iveConnection = f MainForm. Con 

Config. WarningLowCreditDeactivate 'Deactivate Low Credit 

warning 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 

Private Sub cmdUserTimeOutAct ivate_Click ( ) 'See Sub 

cmdDescRegHide__Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen .MousePointer = vbHourglass 

Config .Act iveConnection = f MainForm . Con 

Config. UserTimeoutActivate 'Activate User Timeout 

Screen .MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Conf ig = Nothing 
End Sub 

Private Sub cmdUserTimeOutDeactivate_Click ( ) 'See Sub 

cmdDescRegHide_Click for commentary (same structure) 

Dim Config As New FMCTRLLib . FMConf ig 
On Error GoTo ErrorHandler: 

Screen .MousePointer = vbHourglass 

Conf ig .Act iveConnection = f MainForm. Con 

Conf ig.UserTimeoutDeactivate 'Deactivate User Timeout 

Screen. MousePointer = vbDefault 

Set Config = Nothing 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Config = Nothing 
End Sub 



VERSION 5.00 

Begin VB . Form frmCounters 



BorderStyle 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

LinkTopic = 
MaxButton 
MinButton = 
ScaleHeight = 
ScaleWidth 
ShowInTaskbar = 0 
StartUpPosition = 1 
Begin VB. Frame Frame2 

Caption = 

Height 

Left 

Tablndex = 

Top 

Width 



3 'Fixed Dialog 
"Dialog Caption" 
2520 
2760 
3750 
5775 

"frmCounters . frx" : 0000 
" Forml " 
0 'False 
0 'False 
2520 
5775 



'False 
' CenterOwner 

"Batch counter" 

1695 

2760 

5 

120 
2895 



Begin VB.CommandButton cmdBatchActivate 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



" &Activate" 

375 

1920 

1 

240 
855 



End 

Begin VB.CommandButton cmdBatchClear 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



"&Clear" 

375 

1920 

3 

1200 
855 



End 

Begin VB.CommandButton cmdBatchRead 



Caption 

Height 

Left 

Tablndex 

Top 

Width 



" &Read" 
375 
1920 
2 

720 
855 



End 

Begin VB. Label lbBatchltems 



Alignment 
Caption 
Height 
Left 

Tablndex 

Top 

Width 



1 'Right Justify 

"4578" 

255 

840 

17 

1200 
855 



End 

Begin VB. Label IbBatchActiveLabel 
Caption = "Active:" 

Height = 255 

Left = 240 

Tablndex = 16 



Top = 480 

Width = 495 

End 

Begin VB. Label lbBatchValue 

Alignment = 1 'Right Justify 

Caption = "4567899" 

Height = 255 

Left = 840 

Tablndex = 15 

Top = 840 

Width = 855 

End 

Begin VB. Label lbBatchActive 

Alignment = 1 'Right Justify 

Caption = "Yes" 

Height = 255 

Left = 840 

Tablndex = 14 

Top = 480 

Width = 855 

End 

Begin VB. Label lbBatchValueLabel 

Caption = "Value:" 

Height = 2 55 

Left = 240 

Tablndex = 7 

Top =84 0 

Width = 495 

End 

Begin VB. Label lbBatchl temsLabel 

Caption = "Items:" 

Height = 255 

Left = 240 

Tablndex = 6 

Top = 12 0 0 

Width = 495 

End 

End 

Begin VB . Frame Framel 

Caption = "Postal counter" 

Height = 1695 

Left = 120 

Tablndex = 4 

Top = 12 0 

Width = 2535 

Begin VB. Label lbltems 

Alignment = 1 'Right Justify 

Caption = "91999199911 

Height = 255 

Left = 1200 

Tablndex = 13 

Top o 1200 

Width = 1095 

End 

Begin VB. Label lbDescending 

Alignment = 1 'Right Justify 

Caption = " 9 ' 999 ' 999 . 00 " 

Height = 2 55 

Left = 1200 

Tablndex = 12 

Top =84 0 



Width = 1095 

End 

Begin VB. Label IbAscending 

Alignment = 1 'Right Justify 

Caption = " 9 ' 999 ' 999 . 00 " 

Height = 255 

Left = 1200 

Tablndex = 11 

Top = 480 

Width = 1095 

End 

Begin VB. Label IbltemsLabel 

Caption = 11 Items:" 

Height = 255 

Left = 240 

Tablndex = 10 

Top = 1200 

Width = 975 

End 

Begin VB. Label lbDescendingLabel 

Caption = "Descending:" 

Height = 2 55 

Left = 240 

Tablndex = 9 

Top =84 0 

Width = 975 . 

End 

Begin VB . Label IbAscendingLabel 

Caption = "Ascending:" 

Height = 255 

Left = 240 

Tablndex = 8 

Top = 480 

Width = 975 

End 

End 

Begin VB . CommandButton cmdClose 
Cancel = -1 'True 

Capt ion = " Close " 

Height = 375 

Left = 4440 

Tablndex = 0 

Top = 2 04 0 

Width = 1215 

End 

End 

Attribute VB__Name = " f rmCounters " 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmCounters displays the current values of the counters 
'and allows to control the Batch Counter of the FM . 

Option Explicit 

'Activates Batch Counter (switch it ON) 

Private Sub cmdBatchActivate_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 'Create an new FMActions 

object 



On Error GoTo ErrorHandler : 
case of an error 

Screen . MousePointer = vbHourglass 
pointer 

Actions .Act iveConnect ion = f MainForm. Con 
to be used by Actions 

Actions . BatchCounterActivate 
Counter in the FM 

Screen . MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
ob j ect 

Exit Sub 
ErrorHandler ; 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
ob j ect 
End Sub 



•Jump to ErrorHandler in 
'Show hourglass mouse 
'Define the connection 

'Activate the Batch 

'Show default mouse 
'Disassociate Actions 

'Show default mouse 
'Handle errors (show 
'Disassociate Actions 



•Clears the Batch Counter and displays the counter values and state 
(ON/OFF) before the clearing 



Private Sub cmdBatchClear_Click ( ) 

Dim Actions As New FMCTRLLib . FMAct ions 
object 

Dim strFormatMask As String 

Dim bOn As Boolean 

Dim nl terns As Long 

Dim cValue As Currency 
On Error GoTo ErrorHandler: 
case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .Act iveConnect ion = f MainForm . Con 
to be used by Actions 

strFormatMask = CreateCurrencyFormatMask 
displaying money values 

Actions .BatchCounterClear bOn, nltems, cValue 
and receive its values before the clearing 



'Create an new FMActions 
•Define needed variables 

•Jump to ErrorHandler in 
' Show hourglass mouse 
'Define the connection 

• Create format mask for 

'Clear Batch Couter 



lbBatchActive = BoolToYesNo (bOn) 
counter values before clear 

lbBatchValue = Format (cValue , strFormatMask) 
IbBatchltems = Format (nltems , "##,##0") 

Screen. MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 



'Display the last 

•Show default mouse 
•Disassociate Actions 

•Show default mouse 
'Handle errors (show 




appropriate message) 

Set Actions = Nothing 'Disassociate Actions 

object 
End Sub 

'Reads the current counter values and state (ON/OFF) 

Private Sub cmdBatchRead_Click ( ) 'See Sub 

cmdBatchClear_Click for commentary (same structure) 

Dim Actions As New FMCTRLLib . FMActions 

Dim strFormatMask As String 

Dim bOn As Boolean 

Dim nl terns As Long 

Dim cValue As Currency 
On Error GoTo ErrorHandler : 

Screen. MousePointer = vbHourglass 

Actions .Act iveConnect ion = f MainForm. Con 

strFormatMask = CreateCurrencyFormatMask 

Actions .BatchCounterRead bOn, nltems, cValue 'Read Batch Counter 
from FM 

lbBatchActive = BoolToYesNo (bOn) 'Display Batch 

Couter values 

lbBatchValue = Format (cValue , strFormatMask) 
lbBatchltems = Format (nltems , "##,##0") 

Screen. MousePointer = vbDefault 

Set Actions = Nothing 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 

ErrorHandler 

Set Actions = Nothing 
End Sub 

Private Sub cmdClose__Click ( ) 

Unload Me 
End Sub 



VERSION 5.00 

Begin VB . Form frmDateTime 



BorderStyle = 
Caption 
ClientHeight 
ClientLeft 
ClientTop 
ClientWidth 
Icon 

LinkTopic = 
MaxButton 
MinButton = 
ScaleHeight 
ScaleWidth 
ShowInTaskbar 
StartUpPosition = 
Begin VB . Frame fraDateTime 

Caption 

Height 

Left 



3 'Fixed Dialog 
"Date & Time" 
1680 
2760 
3750 
2535 

"frmDateTime . f rx" : 0000 
" Forml " 
0 'False 
0 'False 
1680 
2535 

0 'False 

1 ' CenterOwner 



"FM system date && time (local) " 
975 



Tablndex 

Top 

Width 



120 
2 

120 
2295 



Begin VB. Label lbDateTime 



Alignment 

BackStyle 

Caption 

Height 

Left 

Tablndex 

Top 

Width 



2 
0 



"25 . 12 
255 
120 
3 

480 
2055 



' Center 

1 Transparent 

00 13:25: 



34" 



End 



End 

Begin VB . CommandButton cmdRefresh 

Caption = "&Re fresh" 

Default = -1 'True 

Height = 3 75 

Left = 12 0 

Tablndex = 0 

Top = 1200 

Width = 1095 

End 

Begin VB . CommandButton cmdClose 



Cancel 
Caption 
Height 
Left 

Tablndex 

Top 

Width 



- l • True 

"Close" 

375 

1320 

1 

1200 
1095 



End 



End 

Attribute VB_Name = "frmDateTime" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

•frmDateTime displays the current local system time and date. 
'The display can be updated by clicking a button. 



Option Explicit 

Private Sub cmdClose_Cl ick ( ) 

Unload Me 
End Sub 



'Read and display the current FM system time 



Public Sub cmdRef resh_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 
FMActions object 
On Error GoTo ErrorHandler : 
in case of an error 

Screen . MousePointer = vbHourglass 
pointer 

Actions . ActiveConnection = f MainForm . Con 
connection to be used by Actions 

lbDateTime . Caption = Actions . GetTimeDate 
from FM 

Screen . MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler: 

Unload Me 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
obj ect 
End Sub 



■ Create an new 
'Jump to ErrorHandler 
' Show hourglass mouse 
'Define the 

•read Date and time 

'Show default mouse 
'Disassociate Actions 

'Show default mouse 
'Handle errors (show 
'Disassociate Actions 



VERSION 5.00 

Object = " {831FDD16-0C5C-llD2-A9FC-000 0F8754DAl}#2 . 0#0" ; 

"MSCOMCTL. OCX" 

Begin VB . Form frmFranking 



BorderStyle 

Caption 

ClientHeight 

ClientLef t 

ClientTop 

ClientWidth 

Icon 

LinkTopic 

MaxButton 

MinButton 

ScaleHeight 

ScaleWidth 

ShowInTaskbar 

StartUpPosition 



3 'Fixed Dialog 

"Franking " 

4440 

2760 

3750 

6975 

"frmFranking . f rx" : 0000 

"Forml" 

0 'False 

0 'False 

4440 

6975 

0 'False 

1 ' CenterOwner 



Begin MSComctlLib . StatusBar sbStatusBar 



Align 




2 ' Al 


Height 




255 


Left 




0 


Tablndex 




19 


Top 




4185 


Width 




6975 


_ExtentX 




12303 


ExtentY 




450 


Style 




1 


SimpleText 




" Ready 


Version 




393216 



BeginProperty Panels { 8E3 867A5-858 6-11D1-B16A-00C0F02 83 62 8} 
NumPanels = 1 

BeginProperty Panell {8E3867AB-8586-11D1-B16A-00C0F0283628} 
EndProperty 
EndProperty 

End 

Begin VB ..CommandButton cmdClearList 
Caption = "&Clear list" 

Height = 375 

Left = 5640 

Tablndex = 9 

Top = 22 8 0 

Width = 1215 

End 

Begin MSComctlLib . ListView lvFrankings 



Height 
Left 

Tablndex 

TabStop 

ToolTipText 

Top 

Width 

_ExtentX 

_ExtentY 

View 

LabelWrap 

Hi deselect ion 

FullRowSelect 

GridLines 

_Version 

ForeColor 

BackColor 

BorderStyle 

Appearance 

NumI terns 



1815 

120 

8 

0 'False 

"F rankings" 

2280 

5415 

9551 

3201 

3 

0 'False 

- 1 1 True 

- 1 ' True 

- 1 ' True 

393217 

-2147483640 

-2147483643 

1 

1 

5 



BeginProperty ColumnHeader (1 ) {BDD1F052-858B- 11D1-B16A- 



OOC0FO283628} 

Key = "Dummy" 

Text = "Dummy" 
Object. Width = 0 

EndProperty 

BeginProperty ColumnHeader (2 ) {BDD1F052 - 858B- 11D1 -B16A 
OOC0FO283628} 

Alignment = 1 

Subltemlndex = 1 

Key = "Number" 

Text = " # " 

Object. Width = 1058 

EndProperty 

BeginProperty ColumnHeader (3 ) {BDD1F052-858B-11D1-B16A 
00C0F0283628} 

Alignment = 1 

Subltemlndex = 2 

Key = "Postage" 

Text = "Postage" 

Object. Width = 1764 

EndProperty 

BeginProperty ColumnHeader (4 ) {BDD1F052-858B-11D1-B16A- 
00C0F0283628} 

Alignment = 1 

Subltemlndex = 3 

Key = "JobRest" 

Text = "Presel. rest" 

Object. Width = 1764 

EndProperty 

BeginProperty ColumnHeader (5) {BDD1F052 - 858B-11D1 -B16A- 
00COF0283628 } 

Subltemlndex = 4 

Key = "Status" 

Text = "Status" 
Object. Width = 3528 

EndProperty 

End 

Begin VB . CommandButton cmdGoQuiet 

Caption = "Go &Quiet" 

Height = 3 75 

Left - 5640 

Tablndex = 7 

Top = 720 

Width = 1215 

End 

Begin VB . Frame fraSettings 

Caption = "Settings" 

Height = 1815 

Left = 120 

Tablndex = 11 

Top = 120 

Width = 5415 

Begin VB.TextBox txtPreselectionDpt 



Alignment 




1 


Height 




285 


Left 




4200 


MaxLength 




3 


Tablndex 




5 


Text 




"0" 


Top 




1320 


Width 




375 



End 

Begin VB.TextBox txtMargin 

Alignment = 1 'Right Justify 

Height = 285 

Left = 4200 



MaxLength = 3 

Tablndex = 3 

Text = "20" 

Top = 84 0 

Width = 375 

End 

Begin VB.TextBox txtDptAcq 

Alignment = 1 'Right Justify 

Height = 285 

Left = 4200 

Tablndex =1 

Text = "9 '999' 900" 

Top = 360 

Width = 975 

End 

Begin VB.TextBox txtPostage 

Alignment = 1 'Right Justify 

Height = 285 

Left = 1560 

Tablndex = 0 

Text' = "9'999'900" 

Top = 360 

Width = 975 

End 

Begin VB . ComboBox cmbFrankMode 

Height =315 

ItemData , = " f rmFranking . f rx" : 0442 

Left = 1560 

List = " f rmFranking . frx" : 0444 

Style = 2 'Dropdown List 

Tablndex = 4 

Top = 13 2 0 

Width = 1215 

End 

Begin VB. ComboBox cmbMailClass 

Height = 315 

Left = 1560 

Style = 2 'Dropdown List 

Tablndex = 2 

Top =84 0 

Width = 1215 

End 

Begin VB. Label lbPreselect ionDpt 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Preselection:" 

Height = 255 

Left = 2880 

Tablndex - 17 

Top = 1380 

Width = 1215 

End 

Begin VB. Label lbMargin 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Margin:" 

Height = 255 

Left = 2880 

Tablndex = 16 

Top = 900 

Width = 1215 

End 

Begin VB. Label lbFrankMode 

Alignment = 1 'Right Justify 

BackStyle = 0 'Transparent 

Caption = "Franking Mode:" 



Height = 255 

Left = 240 

Tablndex = 15 

Top = 13 80 

Width = 1215 

End 

Begin VB. Label lbMailClass 



Alignment 




1 'Right Justify 


BackStyle 




0 ' Transparent 


Caption 




"Mail Class:" 


Height 




255 


Left 




240 


Tablndex 




14 


Top 




900 


Width 




1215 



lbDptAcq 



lbPostage 
1 



End 

Begin VB. Label 
Alignment 
BackStyle 
Caption 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB . Labe 1 
Alignment 
BackStyle 
Caption 
Height 
Left 

Tablndex 
Top 
Width 

End 

End 

Begin VB.CommandButton 
Cancel 

Caption = 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB . CommandButton 
Caption = 
Default 
Height 
Left 

Tablndex 
Top 
Width 
End 

Begin VB. Label IbFrankings 



1 'Right Justify 

0 ' Transparent 

"Acquisition Tax:" 

255 

2880 

13 

420 

1215 



'Right Justify 
0 ' Transparent 
"Auto Tax: " 
255 
240 
12 
420 
1215 



cmdClose 
- l ' True 
"Close" 
375 
5640 
10 

3720 
1215 

cmdSet Decades 
"&Set Decades" 
- 1 ' True 
375 
5640 
6 

240 
1215 



BackStyle 
Caption 
Height 
Left 

Tablndex 
Top 
Width 
End 

End 

Attribute VB__Name = "f rmFranking" 



0 * Transparent 
" Frankings : " 
255 
120 
18 

2040 
855 



Attribute VB_Global Name Space = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

1 f rmFranking provides the GUI for setting the FM ready for Franking. 
'In addition it contains a list of the Frankings that have been 
released . 



Option Explicit 

'Enable or disable the Preselection field depending on the chosen 
•Franking Mode and set the field to a valid value. 

Private Sub cmbFrankMode_Click ( ) 

If cmbFrankMode . ItemData ( cmbFrankMode . List Index) = 0 Then 'If 
Franking Mode = Normal 

txtPreselectionDpt . Enabled = False 
•Disable Preselection field 

txtPreselectionDpt . Text = 0 

Else 

txtPreselectionDpt . Enabled = True 
txtPreselectionDpt . Text = 3 
End If 
End Sub 



Private Sub cmdClearList_Click ( ) 
lvFrankings . Listltems . Clear 

list 
End Sub 

Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 



'Clear the Frankings 



•Set FM to QUIET state (not ready for Franking) 

Private Sub cmdGoQuiet__Click ( ) 

Dim Actions As New FMCTRLLib . FMAct ions 
FMActions object 
On Error GoTo ErrorHandler : 
in case of an error 

Screen . MousePointer = vbHourglass 
pointer 

Actions . ActiveConnection = f MainForm. Con 
connection to be used by Actions 

Actions . GoQuiet 
state (not ready for Franking) 

f rmFranking . sbStatusBar . SimpleText = "Quiet" 
StatusBar 



' Create an new 
' Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 

'Set FM to QUIET 
'Write to 



Screen .MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 
End Sub 



'Show default mouse 
•Disassociate Actions 

'Show default mouse 
•Handle errors (show 
'Disassociate Actions 



' Set the FM ready for Franking 



Private Sub cmdSetDecades_Click { ) 

Dim Actions As New FMCTRLLib . FMAct ions 
FMActions object 

Dim Config As New FMCTRLLib . FMConfig 
FMConfig object 

Dim Postage As Currency- 
variables 

Dim AcquisitionTax As Currency 

Dim Department As Long 

Dim MailClass As Integer 

Dim FrankMode As FRANKMODES 

Dim Preselection As Integer 

Dim Margin As Integer 

Dim Ret As RETVALS 

Dim msg As String 
On Error GoTo ErrorHandler : 
in case of an error 

Screen . MousePointer = vbHourglass 
pointer 

Actions .Act iveConnect ion = f MainForm. Con 
connection to be used by Actions 

Config .Act iveConnect ion = f MainForm. Con 
connection to be used by Config 



•Create an new 
'Create an new 
•Define needed 



'Jump to ErrorHandler 
1 Show hourglass mouse 
'Define the 
'Define the 



'If FM is a special 
'Convert the entered 



If Config . AutoTaxFM Then 
Auto Tax application (Japan) 

Postage = CCur ( txt Postage . Text ) 
values 

AcquisitionTax = CCur (txtDpt Acq . Text ) 
Department = CLng ( txtPreselectionDpt . Text) 
Margin = CInt ( txtMargin . Text ) 

Ret = Actions . SetDecadesTax (Postage, AcquisitionTax, 
Department, Margin) 'Set Decades for Auto Tax FM 

Else 'Standard application 

Postage = CCur (txt Postage . Text ) 'Convert the entered 

values 

Department = CLng (txtDptAcq. Text) 
MailClass = cmbMailClass . Listlndex + 1 
FrankMode = IndexToFrankMode (cmbFrankMode . I temData 
(cmbFrankMode . Listlndex) ) 'Convert Franking Mode 

Preselection = CInt (txtPreselectionDpt .Text) 
Margin = CInt (txtMargin . Text ) 

Ret = Actions . SetDecades (Postage , Department, MailClass, 
FrankMode, Preselection, Margin) 'Set Decades for Standard FM 
End If 

ProcessRetVal Ret 1 Process the result 

of the Set Decades command (show message if necessary) 



Screen . MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
obj ect 

Set Config = Nothing 
object 

Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
obj ect 

Set Config = Nothing 
obj ect 



•Show default mouse 
•Disassociate Actions 
'Disassociate Config 

'Show default mouse 
'Handle errors (show 
•Disassociate Actions 
'Disassociate Config 



End Sub 



'Prepare f rmFranking for the application used by the connected FM. 
•Some TextBoxes are used for different data entry depending on the 
'application (Standard / Auto Tax) 



Private Sub Form_Load{) 

Dim Config As New FMCTRLLib . FMConf ig 
FMConfig object 

Dim MCTxtsO As String 
variables 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen . MousePointer = vbHourglass 
pointer 

Config .Act iveConnect ion = f MainForm . Con 
connection to be used by Config 



'Create an new 
'Define the needed 

1 Jump to ErrorHandler 
' Show hourglass mouse 
'Define the 



txtPostage . Text = "0" 
Postage/AutoTax field 

txtDptAcq.Text = "0" 
Department/Acquisit ionTax field 

If Config .AutoTaxFM = False Then 
application 

lbPostage . Caption = "Postage:" 
according to usage 

lbDptAcq . Caption = "Department:" 
lbPreselectionDpt . Caption = "Preselection:" 

If Config. SettableMailClasses > 0 Then 
Classes are available 

MCTxts = Config. MailClassTexts 
Class texts form FM 

cmbMailClass . Clear 

ComboBox 

For i = LBound (MCTxts) To UBound (MCTxts ) 
Class texts into the ComboBox 

cmbMailClass .Addltem MCTxts (i) , i 
Next i 

cmbMailClass . List Index = 0 
Mail Class ComboBox (choose 1st entry) 
Else 

Mailclasses available 

cmbMailClass. Enabled = False 
Class ComboBox 
End If 



Initialize 
Initialize 
If it is a Standard 
Label the fields 



• If any Mail 
' Read Mail 
'Clear the 
'Fill Mail 

' Initialize 
'No 

'Disable Mail 



cmbFrankMode . Clear 
'Clear Mail Class ComboBox 

If Conf ig. FrankModeAvailNorm Then 'If 
Franking Mode Normal is available 

cmbFrankMode .Addltem "Normal" 
1 Insert entry into ComboBox 

cmbFrankMode . I temDat a (cmbFrankMode .Newlndex) = 0 'Add 
item data to be able to identify the choosen entry 
End If 

If Conf ig . Fr ankModeA vail Tape Then 'Same 
as above for Franking Mode Tape 

cmbFrankMode .Addltem "Tapes" 

cmbFrankMode . ItemData (cmbFrankMode .Newlndex) = 1 
End If 

If Conf ig . FrankModeAvailLetter Then 'Same 
as above for Franking Mode Letter 

cmbFrankMode .Addltem "Letters" 

cmbFrankMode . ItemData (cmbFrankMode .Newlndex) = 2 



End If 

If Conf ig.FrankModeAvai litem Then 'Same 
as above for Franking Mode Item 

cmbFrankMode .Addl tern "Items" 

cmbFrankMode . ItemData (cmbFrankMode .Newlndex) = 3 
End If 

cmbFrankMode . List Index = 0 
•Initialize Mail Class ComboBox (choose 1st entry) 

cmbFrankMode. Enabled = cmbFrankMode . List Count > 1 
'Enable Franking Mode ComboBox if there is more than one entry 

txt Preselect ionDpt .MaxLength = 3 
'Limit the text length of the Preselection field to 3 (max = "999") 

Else • (AutoTaxFM) 'Auto Tax application 

lbPostage .Caption = "Auto Tax:" 'Label the fields 

according to usage 

lbDpt Acq. Caption = "Acquisition Tax:" 

IbPreselectionDpt . Caption = "Department : " 

txtPreselectionDpt . Enabled = True 'Enable 
the Department field 

txtPreselectionDpt . Width = 975 'Set 
width of Department field (more space necessary than for 
Preselection) 

txtPreselectionDpt .MaxLength =0 'No text 

length limit 

txtDpt Acq. Enabled = Conf ig .Acquis itonTaxAvail able 'Enable 
Acquisition Tax field if application supports Acquisition Tax 

cmbMailClass . Enabled = False 'Disable 
Mail Class field (Auto Tax does not support Mail Classes) 

cmbFrankMode. Enabled = False 'Disable 
Franking Mode field (Auto Tax does not support Franking Modes) 
End If ' (AutoTaxFM) 



If Conf ig .MarginAvailable Then 
txtMargin . Enabled = True 
txtMargin .Text = "2 0" 

Else 

txtMargin . Enabled = False 
txtMargin. Text = "0" 
End If 



'Is Margin settable 
•Enable Text Box 
'Set a valid value 

'Disable TextBox 



Screen . MousePointer = vbDefault 
pointer 

Set Config = Nothing 
obj ect 

Exit Sub 
ErrorHandler : 

Unload Me 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
obj ect 
End Sub 



•Show default mouse 
'Disassociate Config 

' Close f rmFranking 
'Show default mouse 

1 Handle errors ( show 

'Disassociate Config 



Private Sub Form_Unload (Cancel As Integer) 

If Len(fMainForm.Con.ConnectionString) <> 0 Then 

connection exists 

cmdGoQu i e t _C lick 

QUIET state (not ready for Franking) 
End If 

End Sub 



• If 

'Set FM to 



Private Sub t xt Dp tAcq^Got Focus ( ) 
SelectAll txtDptAcq 



'Select the whole 




text in the TextBox 
End Sub 

Private Sub txtMargin_GotFocus ( ) 

SelectAll txtMargin 
text in the TextBox 
End Sub 

Private Sub txtPostage_GotFocus ( ) 

SelectAll txtPostage 
text in the TextBox 
End Sub 

Private Sub txtPreselectionDpt_GotFocus () 

SelectAll txtPreselectionDpt 
text in the TextBox 
End Sub 




'Select the whole 



•Select the whole 



'Select the whole 



VERSION 5.00 

Begin VB . Form f rmlnterf ace 



BorderStyle 

Caption 

ClientHeight 

ClientLef t 

Client Top 

ClientWidth 

Icon 

LinkTopic 

MaxButton 

MinButton 

ScaleHeight 

ScaleWidth 

ShowInTaskbar 

StartUpPosition 



3 'Fixed Dialog 

"Interface" 

1320 

2760 

3750 

2775 

"f rmlnterf ace .frx" : 0000 

" Forml" 

0 'False 

0 'False 

1320 

2775 

0 'False 

1 ' CenterOwner 



Begin VB . TextBox txtComPort 



Alignment 




1 1 


Height 




285 


Left 




1680 


MaxLength 




2 


Tablndex . 




0 


Text 




it 2_ « 


Top 




240 


Width 




375 



Right Justify 



End 

Begin VB . CommandBut ton cmdCancel 

Cancel - 1 'True 

Caption = "Cancel" 

Height = 375 

Left = 120 

Tablndex = 2 

Top = 84 0 

Width = 1215 

End 

Begin VB . CommandBut ton cmdOK 

Caption = "OK" 

Default = -1 'True 

Height = 375 

Left = 1440 

Tablndex = l 

Top = 84 0 

Width = 1215 

End 

Begin VB. Label lbCOMPort 

Caption = " COM Port 

Height = 2 55 
Left 



720 

3 

300 
975 



Tablndex 
Top 
Width 
End 

End 

Attribute VB_Name = " f rmlnterf ace " 
Attribute VB_Global Name Space = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmlnterf ace allows changing the COM Port that is used to 
'connect to the FM. 



Option Explicit 

Private Sub cmdCancel_Click ( ) 

Unload Me 
End Sub 




Private Sub cmdOK_Click ( ) 

On Error GoTo ErrorHandler : 'Jump to ErrorHandler 

in case of an error 

nComPort = CInt (txtComPort . Text ) 'Save COM Port # in 

Global variable 

Unload Me 'Close the 

frmlnterface 

Exit Sub 
ErrorHandler: 

ErrorHandler 'Handle errors (show 

appropriate message - here usually conversion error) 

txtComPort . SetFocus 
End Sub 

Private Sub Form_Load() 

txtComPort .Text = CStr (nComPort ) 'Write current COM 

Port # into TextBox 
End Sub 

Private Sub txtComPort_GotFocus ( ) 

SelectAll txtComPort 'Select the whole 

text in the TextBox 
End Sub 



VERSION 5.0 0 

Begin VB . Form f rmMailClassAdjust 



BorderStyle 
Caption = 
ClientHeight 
ClientLeft = 
ClientTop = 
ClientWidth 
Icon = 
LinkTopic = 
MaxButton = 
MinButton 
ScaleHeight 
ScaleWidth 
ShowInTaskbar = 
StartUpPosition = 



3 'Fixed Dialog 

"Mail Class adjust" 

1320 

2760 

3750 

3240 

"f rmMailClassAdjust . frx' 

"Forml" 

0 'False 

0 'False 

1320 

3240 

0 'False 

1 ' CenterOwner 



: 0000 



Begin VB . ComboBox cmbMailClass 



Height 
ItemData 
Left 
List 
Style 
Tablndex 
ToolTipText 
Top 
Width 



315 

" f rmMailClassAdjust . frx" : 0442 
1680 

"f rmMailClassAdjust . frx" : 0455 

2 'Dropdovm List 

0 

"Printed Mail Class" 

240 

1455 



End 

Begin VB . CommandButton CancelButton 



Cancel 
Caption 
Height 
Left 

Tablndex 

Top 

Width 



-1 'True 

"Close" 

375 

1920 

3 

840 
1215 



End 

Begin VB . CommandButton OKButton 



Caption 
Default 
Height 
Left 

Tablndex 

Top 

Width 



" &Adjust " 

- 1 ' True 

375 

600 

1 

840 
1215 



End 

Begin VB. Label lbPrintedMC 



Alignment 

BackStyle 

Caption 

Height 

Left 

Tablndex 

Top 

Width 



1 'Right Justify 

0 • Transparent 

"Printed Mail Class: 

255 

240 

2 

300 
13 3 5 



End 



End 

Attribute VB_Name = " f rmMailClassAdjust " 
Attribute VB_GlobalName Space = False 
Attribute VB__Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' f rmMailClassAdjust allows correcting the Mail Class assignment to 
'the Mail Class Cylinder position. 

'In rare failure cases the assignment can get wrong. With this 
•function the assignment can be adjusted. 



Option Explicit 



Private Sub CancelButton_Click ( ) 

Unload Me 
End Sub 

'Executes Mail Class adjusting 

Private Sub OKButton_Click ( ) 

Dim Actions As New FMCTRLLib . FMAct ions 
FMConfig object 

Dim MCTxtsO As String 
variables 

Dim nMCCylPos As Integer 

Dim nEmptyPos As Integer 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Actions .Act iveConnect ion = f MainForm . Con 
connection to be used by Config 



'Create an new 
'Define needed 

'Jump to ErrorHandler 
•Show hourglass mouse 
'Define the 

'If no Mail Class is 



If cmbMailClass . Listlndex < 0 Then 
chosen 

MsgBox "Please choose a Mail Class. vbExclamation 'Show 

message 
Else 

Actions .MailClassAdjust cmbMailClass . Listlndex + 1 
'Adjust Mail Class on FM 
End If 



Screen .MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 

Exit Sub 
ErrorHandler : 

Unload Me 

Screen .MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 
End Sub 



•Show default mouse 
'Disassociate Config 

'Show default mouse 
'Handle errors (show 
•Disassociate Config 



VERSION 5.00 

Object = « {831FDD16-0C5C-llD2-A9FC-OOO0F8 754DAl}#2 . 0#0" ; 

"Mscomctl . ocx" 

Begin VB . Form frmMain 

BackColor = &H80000005& 

BorderStyle = l 'Fixed Single 

Caption = "FM Control User Application Demo" 

ClientHeight = 4140 

ClientLeft = 1410 

ClientTop = 1410 

ClientWidth = 7110 

Icon = "f rmMain. f rx" : 0000 

LinkTopic = "Forml" 

MaxButton = o 'False 

ScaleHeight = 4140 

ScaleWidth = 7110 

StartUpPosition = 2 ' CenterScreen 

Begin MSComctlLib . Toolbar tbToolBar 

Align = l t Align Top 

Height =360 

Left = 0 

Tablndex = l 

Top = o 

Width = 7110 

_ExtentX = 12541 

_ExtentY = 63 5 

ButtonWidth = 609 

ButtonHeight = 5 82 

Appearance = l 

Style l 

ImageList = " imlToolbarlcons " 

_Version = 3 93216 

BeginProperty Buttons { 66 83 3FE8- 8 5 83 - 11D1 -B16A- 0 0C0F0283 62 8 } 
NumButtons = 15 

BeginProperty Buttonl { 6683 3FEA-8583-11D1-B16A-00C0F0283 62 8 } 
Key = "Interface" 

Object .ToolTipText = "Interface (Ctrl+I) " 

ImageKey = "Interface" 

EndProperty 

BeginProperty Button2 { 6 6 83 3 FEA- 8 5 83 - 11D1-B16A- 0 0C0F02 83 62 8 } 

Style = 3 

EndProperty 

BeginProperty Button3 { 6683 3 FEA- 8 583 -11D1-B16A-0 0C0F02 83 62 8 } 
Key = "Connect" 

Object .ToolTipText = "Connect (F3)" 

ImageKey = "Connect" 

EndProperty 

BeginProperty Button4 {6683 3FEA-8 583-11D1-B16A-0 0C0F0283 62 8 } 
Key = "Disconnect" 

Object .ToolTipText = "Disconnect (F4)" 

ImageKey = "Disconnect" 

EndProperty 

BeginProperty Buttons { 6683 3 FEA- 8 583 - 11D1-B16A- 0 0C0F02 83 62 8 } 

Style = 3 

EndProperty 

BeginProperty Button6 { 6683 3FEA- 8583 - 11D1-B16A- 00C0F0283 628 } 
Key = "Properties" 

Object .ToolTipText = "Properties (Ctrl+P) " 

ImageKey = "Properties" 

EndProperty 

BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283 62 8 } 
Key = "Settings" 

Object .ToolTipText = "Settings (Ctrl+S) " 

ImageKey = "Settings" 

EndProperty 

BeginProperty Button8 { 668 3 3 FEA- 8 583 - 11D1-B16A-00C0F02 83 62 8 } 



Style = 3 

EndProperty 

BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628 } 
Key = "Franking" 

Object .ToolTipText = "Franking (F5) " 

ImageKey = "Franking" 

EndProperty 

BeginProperty ButtonlO { 66833FEA-8583 - 11D1 -B16A- 
00C0F0283628} 

Key = "Counters" 

Object .ToolTipText = "Counters (F6)" 

ImageKey = "Counters" 

EndProperty 

BeginProperty Buttonll { 66833FEA-8583 - 11D1 -B16A- 
00C0F0283628} 

Key = "DateTime" 

Object . ToolTipText = "Date && Time (F7) " 

ImageKey = "DateTime" 

EndProperty 

BeginProperty Buttonl2 { 66833FEA-8583 -11D1-B16A- 
00C0F0283628} 

Key = "MailClass" 

Object .ToolTipText = "Mail Class adjust (F8) " 

ImageKey = "MailClass" 

EndProperty 

BeginProperty Buttonl3 { 66833FEA-8583 -11D1-B16A- 
00C0F0283628} 

Key = "TextToDisplay" 

Object .ToolTipText = "Text to display (F9) " 

ImageKey = "TextToDisplay" 

EndProperty 

BeginProperty Buttonl4 { 66833FEA- 8583 - 11D1 -B16A- 
0OCOF0283628} 

Style = 3 

EndProperty 

BeginProperty ButtonlS { 66833FEA-8583 - 11D1-B16A- 
0OCOF0283628} 

Key = "About" 

Object .ToolTipText = "About" 

ImageKey = "Help" 

EndProperty 
EndProperty 

Mouselcon = " f rmMain . f rx" : 0442 

End 

Begin MSComctlLib . StatusBar sbStatusBar 



Align 


2 'Align Bottom 


Height 


255 


Left 


0 


Tab Index 


0 


Top 


3885 


Width 


7110 


ExtentX 


12541 


ExtentY 


450 


Style 


1 


SimpleText 


"Ready" 


_Version 


393216 


BeginProperty 


Panels { 8E38 67A5- 8 586 - 11D1 


NumPanels 


3 



BeginProperty Panel 1 { 8E3 867AB- 8586 - 11D1-B16A- 00C0F02 83628 } 

AutoSize = l 

Object. Width = 7355 

Text = "Status" 

TextSave = "Status" 
EndProperty 

BeginProperty Panel 2 { 8E3 867AB- 8586 - 11D1-B16A- 0OCOFO28362 8 } 

Style = 6 




AutoSize = 2 

TextSave = "08.09.2000" 

EndProperty 

BeginProperty Panel 3 {8E3 86 7AB-8 586-11D1-B16A-00C0F0283 628 } 
Style = 5 

AutoSize = 2 

TextSave = "16:29" 

EndProperty 
EndProperty 

End 

Begin MSComctlLib . ImageList imlToolbarlcons 
Left = 6480 

Top = 480 

_ExtentX = 1005 

_ExtentY = 1005 

BackColor = 16777215 

ImageWidth = 16 

ImageHeight 16 
MaskColor = 12632256 

_Version = 393216 

BeginProperty Images { 2C24 7F25- 8591 - 11D1-B16A- OOCOF0283 628 } 
NumLi st Images = 11 

BeginProperty List Image 1 {2C24 7F2 7-8591-11D1-B16A- 
O0C0F0283628} 

Picture = " f rmMain . f rx" : 0B94 

Key = "Help" 

EndProperty 

BeginProperty Listlmage2 {2C247F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = » f rmMain . frx" : 0CF2 

Key = "Counters" 

EndProperty 

BeginProperty Listlmage3 {2C24 7F27-8591-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 100C 

Key = "MailClass" 

EndProperty 

BeginProperty Listlmage4 {2C247F27-85 91-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 14 5E 

Key = "Franking" 

EndProperty 

BeginProperty List Images {2C247F2 7-85 91-11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 18B0 

. Key = "DateTime" 

EndProperty 

BeginProperty Listlmage6 { 2C24 7F2 7- 8591 - 11D1-B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 1D02 

Key = "Properties" 

EndProperty 

BeginProperty Listlmage7 { 2C247F27- 8591- 11D1-B16A- 
00C0F0283628} 

Picture = » f rmMain . frx" : 2 154 

Key = "TextToDisplay" 

EndProperty 

BeginProperty List Image 8 { 2C24 7F2 7-85 91- 11D1 -B16A- 
00C0F0283628} 

Picture = " f rmMain . frx" : 2 5A6 

Key = "Connect" 

EndProperty 

BeginProperty Listlmage9 { 2C247F27-85 91- 11D1-B16A- 
00C0F0283628} 

Picture = « f rmMain . frx" : 2704 

Key = "Disconnect" 



EndProperty 
BeginProperty 
00COF0283628} 

■ Picture 
Key 
EndProperty 
BeginProperty 
00C0F0283628} 

Picture 
Key 
EndProperty 
EndProperty 

End 

Begin VB . PictureBox 
Appearance 
BackColor 
BorderStyle 
FillColor 
ForeColor = 
Height 
Left 

Picture = 
ScaleHeight 
ScaleWidth 
Tablndex 

Top = 
Width 
End 

Begin VB. Label 
BackColor 
BackStyle 
Caption 
BeginProperty 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strike through 
EndProperty 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB. Label 

BackColor = 
BackStyle 
Caption = 
BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strike through 
EndProperty 
Height 
Left 

Tablndex 

Top 

Width 

End 



Li st Image 10 {2C24 7F27-8591-11D1-B16A 



"frmMain . f rx" 
"Interface" 



2862 



Listlmagell { 2C24 7F27- 8591-1 1D1-B16A 



"frmMain . f rx" 
"Settings" 



picAscomLogo 
0 'Flat 
&H80000005& 
0 ' None 
&H00FFFFFF& 
&H80000005& 
592 
2520 

"frmMain. frx" :2A86 
585 
2010 
2 

3300 
2010 



lbSerialNr 

&H80000005& 
= 0 1 Transparent 
"654321" 



2974 



Font 



"MS 

12 

0 

700 
0 
0 
0 



Sans Serif* 



' False 
'False 
' False 



375 
3480 
6 

1680 
1455 

lbSerialNrLabel 

&H80000005& 
0 ' Transparent 
"Serial Nr.:" 



"MS 

12 

0 

700 
0 
0 
0 



Sans Serif" 



» False 
'False 
• False 



375 

2160 

5 

1680 
1215 



&H80000005& 

0 ' Transparent 

"F3XXPLUS " 



"MS 

12 

0 

700 
0 
0 
0 



Sans Serif 



■ False 
'False 
•False 



&H80000005& 
0 1 Transparent 
" FM Type : " 

"MS Sans Serif 
12 



Begin VB. Label lbFMType 
BackColor = 
BackStyle 
Caption. 

BeginProperty Font 
Name 
Size 
Charset 
Weight 
Underline 
Italic 

Strike through 
EndProperty 

Height = 375 

Left = 3480 

Tablndex = 4 

Top = 1200 

Width = 1455 

End 

Begin VB. Label lbFMTypeLabel 
BackColor 
BackStyle 
Caption = 
BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strike through 
EndProperty 

Height = 3 75 

Left = 2160 

Tablndex = 3 

Top = 1200 

Width = 1215 

End 

Begin VB.Menu mnuSystem 

Caption = "&System" 

Begin VB.Menu mnuSystemlnterf ace 

Caption = "&Interface. . . 

Shortcut = A I 

End 

Begin VB.Menu mnuSystemBarO 
Caption = "-» 

End 

Begin VB.Menu mnuFileExit 

Caption = "E&xit" 

End 

End 

Begin VB.Menu mnuConnection 

Caption = "^Connection" 

Begin VB.Menu mnuConnection Connect 

Caption = "^Connect" 

Shortcut = {F3} 

End 

Begin VB.Menu mnuConnectionDis connect 



0 

700 

0 

0 

0 ■ 



• False 
' False 
' False 



" ^Disconnect " 
{F4} 



Caption 
Shortcut 

End 
End 

Begin VB.Menu mnuConfig 

Caption = "C&onf iguration" 

Begin VB.Menu mnuConf igPropert ies 
Caption = "&Properties . 



Shortcut = 

End 

Begin VB.Menu mnuConf igSettings 

Caption = "^Settings. . . " 

Shortcut = A S 

End 

End 

Begin VB.Menu mnuActions 

Caption = "SActions" 

Begin VB.Menu mnuAct ionsFranking 

Caption = "&Franking. . . " 

Shortcut = {F5} 

End 

Begin VB.Menu mnuActionsCounters 

Caption = "&Counters ... 11 

Shortcut = {F6} 

End 

Begin VB.Menu mnuAct ionsBarO 
Caption = "-" 

End 

Begin VB.Menu mnuAct ions Date Time 

Caption = "&Date && Time. . . " 

Shortcut {F7} 

End 

Begin VB.Menu mnuAct ionsMailClassAdj ust 

Caption = "&Mail Class adjust..." 

Shortcut = {F8} 

End 

Begin VB.Menu mnuAc t ions Tex tToDisp 

Caption = "&Text to display..." 

Shortcut = {F9} 

End 

End 

Begin VB.Menu mnuView 

Caption = "&view" 

Begin VB.Menu mnuViewToolbar 

Caption = "^Toolbar" 

Checked = -l 'True 

End 

Begin VB.Menu mnuViewStatusBar 

Caption = "Status &Bar" 

Checked = -l 'True 

End 

End 

Begin VB.Menu mnuHelp 

Caption = "&Help" 

Begin VB.Menu mnuHelpAbout 

Caption = "&About . . . " 

End 

End 

End 

Attribute VB_Name = "frmMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

'frmMain is the main window of this application. 

•It contains a, menu and a toolbar that allow to establish connection, 
'disconnect and open the sub forms. 

•frmMain contains the Connection object that is used to comunicate 
with the FM. 

'Therefore also all events raised by the FM Control Library 
(FMCTRLLib) are 
'processed in this form. 

Option Explicit 




Public WithEvents Con As FMCTRLLib . Connection 'Define Connection 
object variable 

Attribute Con. VB_VarHelpID = -l 

Public Enum FORMSTATES 'Enumerator for the different states of 

the frmMain 

fsConnected 

f sDisconnected 
End Enum 

Dim nFrankingCounter As Long 'Counter to number the Frankings 

Private bDieCoverOpen As Boolean 'Flag indicating whether the Die 
Cover is open 

•Event, raised whenever the Die Cover is closed 

Private Sub Con_OnDi e Cover CI os ed ( ) 
bDieCoverOpen = False 

sbStatusBar . SimpleText = "Connected" 
statusbar of frmMain 

f rmFranking. sbStatusBar . SimpleText = "Ready" 
statusbar of frmFranking (does not need to be open) 
End Sub 

'Event, raised whenever the Die Cover is closed 

Private Sub Con_OnDieCoverOpen ( ) 
bDieCoverOpen = True 

sbStatusBar . SimpleText = "Die Cover open" 
statusbar of frmMain 

frmFranking . sbStatusBar . SimpleText = "Die Cover open" 
statusbar of frmFranking (does not need to be open) 
End Sub 

■Event, raised whenever an unexpected disconnection is detected 

Private Sub Con_OnDi s connect ( ) 
Dim i As Integer 

SetFormState ( f sDisconnected) 
on frmMain for state Disconnected 

For i = Forms . Count - 1 To 1 Step -1 
Unload Forms (i) 

Next 
End Sub 

'Event, raised whenever FM goes to QUIET state without having 
received an explicit command to do so. 

•This happens e.g. when the user timeout has run down. 

Private Sub Con_OnQuiet (ByVal StatusCode As FMCTRLLib 

If Not bDieCoverOpen Then 
overwrite StatusBar if Die Cover is open 

frmFranking . sbStatusBar . SimpleText = "Quiet" 
statusbar of frmFranking (does not need to be open) 

End If 

If Not (StatusCode = R_OK) Then 
ProcessRetVal (StatusCode) 
message for with the message from the high speed base 

End If 
End Sub 

•Event, raised whenever a Franking is released 

Private Sub Con_OnF ranking (By Val Postage As Currency, ByVal JobRest 



'Reset flag 
'Write to 

'Write to 



'Set flag 
•Write to 

•Write to 



'Set frmMain all controls 
'Close all sub forms 



.RETVALS) 
'Do not 

•Write to 



'Display a 



As Integer, ByVal StatusCode As FMCTRLLib . RETVALS) 

Dim liltem As Listltem 'Define the needed 

valiables 

Dim strJobRest As String 

nFrankingCounter = nFrankingCounter + 1 
' Increment the Franking counter 

Set liltem = frmFranking . lvFrankings . ListI terns .Add ( 1) 
•Create a new list item on 1st position in the Frankings list on 
frmFranking 

'Column 0 is not used (1st column must be left alligned, but # should 
be right 

'alligned, so column 0 has width 0) 

liltem. Subl terns (1) = CStr (nFrankingCounter) 
'Write # to list item 

liltem. Subltems (2) = Format (Postage , CreateCurrencyFormatMask) 
'Write formated Postage to list item 

If JobRest = -1 Then 'If no Preselection 

(-1) 

strJobRest = " (none) " 

Else 

strJobRest = CStr (JobRest ) 
End If 

liltem. Subltems (3) = strJobRest 'Write 
remaining number of items to list item 

liltem. Subltems (4) = RetValToShortText (StatusCode ) 'Write 
short description of state to list item 

ProcessRetVal (StatusCode) 'Process StatusCode 

(show message if necessary) 
End Sub 



'Event, raised when no more Tapes are available in Franking Mode 
FRK_TAPE 

Private Sub Con_OnNoMo re Tapes ( ) 

Dim Actions As New FMCTRLLib . FMAct ions 
FMActions object 

Dim msg As String 
variables 

Dim MsgBoxStyle As VbMsgBoxStyle 
On Error GoTo ErrorHandler : 
in case of an error 

Actions .Act iveConnect ion = f MainForm . Con 
connection to be used by Actions 

msg = "No more Tapes. Please refill." 'Prepare MsgBox text 

MsgBoxStyle = vbExclamation + vbRetryCancel 'MsgBox has Retry and 
Cancel button 



'Create an new 
•Define needed 

'Jump to ErrorHandler 
'Define the 



If vbRetry = MsgBox (msg, MsgBoxStyle) Then 'Show message if 
Retry button is pressed 

Screen . MousePointer = vbHourglass 

pointer 

Actions . TapesPresent 
are ready again 

Else 
pressed 

Screen . MousePointer = vbHourglass 

pointer 

Actions . GoQuiet 
state (not ready for Franking) 

frmFranking . sbStatusBar . SimpleText = "Quiet " 
statusbar of frmFranking (does not need to be open) 



'Show hourglass mouse 
'Tell FM that tapes 
'Cancel button 
•Show hourglass mouse 
'Set FM to Quiet 
•Write to 



End If 

Screen . MousePointer = vbDefault 'Show default mouse 

pointer 

Set Actions = Nothing 'Disassociate Actions 

obj ect 

Exit Sub 
ErrorHandler ; 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

ErrorHandler 'Handle errors (show 

appropriate message) 

Set Actions = Nothing 'Disassociate Actions 

obj ect 
End Sub 

'Event, raised whenever a rotor error occurs 

Private Sub Con_OnRotorError (ByVal StatusCode As FMCTRLLib . RETVALS ) 
Dim msg As String 

sbStatusBar . SimpleText = "Connected" 'Write to 

statusbar of frmMain 

frmFranking. sbStatusBar . SimpleText = "Quiet" 'Write to 

statusbar of frmFranking (does not need to be open) 

msg = "Rotor error!" + Chr(13) 'Prepare message 

msg = msg + RetValToText (StatusCode) 

MsgBox msg, vbCritical 'Display message 

End Sub 

Private Sub Form__Load ( ) 

'frmMain is opende centred on the screen 

Me. Left = GetSetting (App. Title, "Settings", "MainLeft", 1000) 
Me. Top = GetSetting (App . Title, "Settings", "MainTop", 1000) 
Me. Width = 7200 'Define width of 

frmMain 

Me. Height = 4800 'Define hight of 

frmMain 

Set Con = New FMCTRLLib . Connect ion "Create Connection 

obj ect 

SetFormState ( f sDisconnected) 'Set frmMain all 

controls on frmMain for state Disconnected 

sbStatusBar . SimpleText = "Ready" 'Write to statusbar 

of frmMain 

nComPort =1 'Initialize COM Port 

number 
End Sub 

•Called before frmMain is closed 

Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As 
Integer) 

If Con. Connect ionSt ring <> " " Then *if connection exists 

Cancel = True 'Do not close frmMain 

•Show message 

MsgBox "Can not exit while connection exists." + Chr(13) + 
"Please disconnect.", vbCritical 

End If 
End Sub 

Private Sub Form_Un load (Cancel As Integer) 
Dim i As Integer 



For i = Forms. Count - 1 To 1 Step -1 



'Close all sub forms 



'Save window position 



Unload Forms (i) 

Next 

If Me . WindowState <> vbMinimized Then 
in registry 

SaveSetting App. Title, "Sett ings " , "MainLeft", Me. Left 
SaveSetting App. Title, "Settings", "MainTop", Me. Top 
End If 

Set Con = Nothing 'Disassociate 
Connection object 
End Sub 



•Information is filled into the fields and window is opended. 



Private Sub mnuAc t ions Count ers_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 

FMActions object 

Dim strFormatMask As String 

variables 

Dim cAscending As Currency- 
Dim cDescending As Currency 
Dim nl terns As Long 
Dim bOn As Boolean 
Dim cValue As Currency 

On Error GoTo ErrorHandler : 

in case of an error 

Screen. MousePointer = vbHourglass 

pointer 

Actions . ActiveConnection = f MainForm. Con 
connection to be used by Actions 

strFormatMask = CreateCurrencyFormatMask 
for displaying money values 



•Create an new 
'Define needed 



•Jump to ErrorHandler 
' Show hourglass mouse 
'Define the 

•Create format mask 



Actions .GetCounterValues cAscending, cDescending, nltems 
postal counters form FM 



'Read 



With frmCounters 

. IbAscending. Caption = Format (cAscending, strFormatMask) 
'Display postal counters 

. lbDescending. Caption = Format (cDescending , strFormatMask) 
. lbltems .Caption = Format (nltems , "##,##0") 

Actions .BatchCounterRead bOn, nltems, cValue 'Read Batch 
Counter from FM 



.lbBatchActive = BoolToYesNo (bOn) 
Batch Counter values 

.lbBatchValue = Format (cValue, strFormatMask) 
. lbBatchl terns = Format (nltems , "##,##0") 
End With 



' Display 



Screen . MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
object 



'Show default mouse 
'Disassociate Actions 



frmCounters . Show vbModal , Me 



Exit Sub 
ErrorHandler : 

Screen. MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
object 



'Show default mouse 
'Handle errors (show 
'Disassociate Actions 



End Sub 

'Read and display the current FM system time and open window 



Private Sub mnuActionsDateTime_Click ( ) 

Dim Actions As New FMCTRLLib . FMAct ions 

FMActions object 

On Error GoTo ErrorHandler : 

in case of an error 

Screen . MousePointer = vbHourglass 

pointer 

Actions . ActiveConnect ion = f MainForm . Con 
connection to be used by Actions 



•Create an new 
•Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 



frmDateTime . lbDateTime .Caption = Actions .GetTimeDate 
Date and time from FM 



1 read 



Screen .MousePointer = vbDefault 
pointer 

Set Actions = Nothing 
obj ect 

frmDateTime . Show vbModal, Me 

Exit Sub 
ErrorHandler: 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Actions = Nothing 
obj ect 
End Sub 



'Show default mouse 
'Disassociate Actions 



'Show default mouse 
'Handle errors (show 
'Disassociate Actions 



'Prepare frmFranking for the application used by the connected FM. 
'Some TextBoxes are used for different data entry depending on the 
'application (Standard / Auto Tax) 



Private Sub mnuActionsFranking_Click ( ) 

Dim Config As New FMCTRLLib . FMConfig 
FMConfig object 

Dim MCTxtsO As String 
variables 

'Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen . MousePointer = vbHourglass 
pointer 

Config .ActiveConnect ion = f MainForm. Con 
connection to be used by Config 



' Create an new 
•Define the needed 

' Jump to ErrorHandler 
•Show hourglass mouse 
'Define the 



With frmFranking 

. txtPostage .Text = "0" 
Postage/AutoTax field 

. txtDptAcq . Text = "0" 
Department /Acquisit ionTax field 

If Config . AutoTaxFM = False Then 
Standard application 

. lbPostage . Caption = "Postage:" 
according to usage 

. lbDptAcq. Caption = "Department : " 

. lbPreselectionDpt . Caption = "Preselection:" 



Initialize 
Initialize 
If it is a 
Label the fields 



If Config . SettableMailClasses > 0 Then 
Mail Classes are available 

MCTxts = Config. MailClassTexts 



•If any 
' Read 



Mail Class texts form FM 

. cmbMailClass . Clear • Clear 

the ComboBox 

For i = LBound (MCTxts) To UBound (MCTxts ) 'Fill 
Mail Class texts into the ComboBox 

. cmbMailClass .Addltem MCTxts(i), i 
Next i 

.cmbMailClass .Listlndex = 0 
•Initialize Mail Class ComboBox (choose 1st entry) 

Else 'No 
Mailclasses available 

.cmbMailClass. Enabled = False 'Disable 
Mail Class ComboBox 
End If 

. cmbFrankMode . Clear 
'Clear Mail' Class ComboBox 

If Conf ig. FrankModeAvailNorm Then 
'If Franking Mode Normal is available 

. cmbFrankMode .Addltem "Normal " 
1 Insert entry into ComboBox 

. cmbFrankMode . ItemData ( . cmbFrankMode . Newlndex) = 0 
'Add item data to be able to identify the choosen entry 
End If 

If Conf ig. FrankModeAvailTape Then 
■ Same as above for Franking Mode Tape 

. cmbFrankMode . Addl t em " Tapes " 

. cmbFrankMode . ItemData ( . cmbFrankMode . Newlndex) = 1 
End If 

If Conf ig. FrankModeAvail Letter Then 
' Same as above for Franking Mode Letter 

. cmbFrankMode .Addltem "Letters" 

. cmbFrankMode . ItemData ( . cmbFrankMode . Newlndex) = 2 
End If 

If Conf ig. FrankModeAvail I tern Then 
'Same as above for Franking Mode Item 

. cmbFrankMode .Addltem "Items" 

. cmbFrankMode . ItemData (. cmbFrankMode .Newlndex) = 3 
End If 

. cmbFrankMode . Listlndex = 0 
'Initialize Mail Class ComboBox (choose 1st entry) 

.cmbFrankMode .Enabled = . cmbFrankMode . List Count > 1 
'Enable Franking Mode ComboBox if there is more than one entry 

. txtPreselectionDpt .MaxLength = 3 
'Limit the text length of the Preselection field to 3 (max = "999") 

Else ' (AutoTaxFM) 'Auto Tax 

application 

. lbPostage. Caption = "Auto Tax:" 'Label the 

fields according to usage 

. lbDpt Acq. Caption = "Acquisition Tax:" 

. lbPreselectionDpt . Caption = "Department:" 

. txtPreselectionDpt . Enabled = True 
•Enable the Department field 

.txtPreselectionDpt .Width = 975 'Set 
width of Department field (more space necessary than for 
Preselection) 

. txtPreselectionDpt .MaxLength = 0 'No 
text length limit 

. txt Dp t Acq. Enabled = Conf ig . AcquisitonTaxAvailable 
•Enable Acquisition Tax field if application supports Acquisition Tax 

. cmbMailClass . Enabled = False 
'Disable Mail Class field (Auto Tax does not support Mail Classes) 

. cmbFrankMode . Enabled = False 
'Disable Franking Mode field (Auto Tax does not support Franking 
Mode s ) 



End If ■ (AutoTaxFM) 

If Conf ig.MarginAvailable Then 

settable 

. txtMargin . Enabled = True 
.txtMargin.Text = "20" 

value 

Else 

. txtMargin . Enabled = False 
.txtMargin.Text = "0" 
End If 
End With 



' Is Margin 

' Enable TextBox 
•Set a valid 



'Disable TextBox 



Screen . MousePointer = vbDefault 
pointer 

Set Config = Nothing 
obj ect 

f rmFranking . Show vbModal , Me 

Exit Sub 
ErrorHandler : 

Screen .MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
object 
End Sub 



■Show default mouse 
•Disassociate Config 

• Show window 

'Show default mouse 
•Handle errors (show 
•Disassociate Config 



•Prepare GUI for MailClassAdj ust depending on the FM configuration 
and open window. 



Private Sub mnuAct ionsMailClassAdj ust_Click ( ) 

Dim Config As New FMCTRLLib . FMConf ig 
FMConfig object 

Dim MCTxtsO As String 
variables 

Dim nMCCylPos As Integer 

Dim nEmptyPos As Integer 

Dim i As Integer 
On Error GoTo ErrorHandler 
in case of an error 

Screen .MousePointer = vbHourglass 
pointer 

Conf ig . ActiveConnect ion = f MainForm. Con 
connection to be used by Config 



'Create an new 
'Define needed 

' Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 



If Conf ig.SettableMailClasses > 0 Then 
available 

nMCCylPos = Conf ig . MailClassCylinderPositions 
of positions on Mail Class cylinder from FM 

MCTxts = Conf ig . MailClassText s 'Get Mail Class texts 

from FM 



If Mail Classes are 
•Get number 



Clear ComboBox 
Fill Mail Class 



f rmMailClassAdjust . cmbMailClass . Clear 
For i = LBound (MCTxts) To UBound (MCTxts) 
texts into ComboBox 

f rmMailClassAdjust . cmbMailClass .Addltem MCTxts (i) , i 
Next i 



nEmptyPos = nMCCylPos - (UBound (MCTxts) - LBound (MCTxts) ) - 1 
'Calculate the number of positions on Mail 



'Class cylinder that are not assigned to a 



'Mail Class text 

For i = 1 To nEmptyPos 
ComboBox with this number of " (no text) " entries 

f rmMailClassAdjust . cmbMailClass .Addltem "(no text)" 
make all Mail Class cylinder positions available 
Next i 



1 Fill 
to 



Screen . MousePointer = vbDefault 



pointer 
obj ect 



Set Config = Nothing 



f rmMailClassAdjust . Show vbModal, Me 

Else 
available 

Screen . MousePointer = vbDefault 

pointer 

Set Config = Nothing 

object 

MsgBox "Mail Classes not available", 

message 

End If 



'Show default mouse 
'Disassociate Config 

1 Open the window 
'No Mail Classes 

'Show default mouse 

'Disassociate Config 

vbCritical 'Show 



vbDefault 



Exit Sub 
ErrorHandler : 

Screen . MousePointer = 
pointer 

ErrorHandler 
appropriate message) 

Set Config = Nothing 
object 
End Sub 



Private Sub mnuAc t ions Tex t ToD i sp_C 1 i ck ( ) 

frmTextToDi splay . Show vbModal, Me 
End Sub 

Private Sub mnuConnectionConnect__Click () 
Dim strConnectionString As String 

On Error GoTo ErrorHandler: 

in case of an error 

Screen . MousePointer = vbHourglass 

pointer 



'Show default mouse 
'Handle errors (show 
'Disassociate Config 



'Jump to ErrorHandler 
1 Show hourglass mouse 



strConnectionString = "COMP0RT=" + CStr (nComPort ) + "; 
PROTOCOL=MLPV6 " 'Compose ConnectionString 



Con. Connect (strConnectionString) 

nFr ank i ngCoun t e r = 0 
Counter (used to number the Frankings) 

SetFormState ( f sConnected) 
controls on frmMain for state Connected 

Screen . MousePointer = vbDefault 
pointer 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

SetFormState (f sDisconnected) 
controls on frmMain for state Disconnected 
End Sub 



' Connect to FM 

' Initialize Franking 

'Set frmMain all 

' Show default mouse 

' Show default mouse 
'Handle errors (show 
•Set frmMain all 



Private Sub tnnuConne c t i onD i s c onne c t_C lick ( ) 



On Error GoTo ErrorHandler : 'Jump to ErrorHandler 

in case of an error 

Screen. MousePointer = vbHourglass 'Show hourglass mouse 

pointer 

Con. Disconnect 'Disconnect from FM 

SetFormState (f sDisconnected) 'Set frmMain all 

controls on frmMain for state Disconnected 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 'Show default mouse 

pointer 

ErrorHandler 'Handle errors (show 

appropriate message) does usually not happen here 
End Sub 

•Executes appropriate mnuXxx_Click routine depending on the clicked 
button 

Private Sub tbToolBar_ButtonClick (ByVal Button As MSComctlLib . Button) 
On Error Resume Next 

Select Case Button. Key 
Case "Interface" 

mnuSystemlnterf ace_Click 
Case "Connect" 

mnuConnect i onConne c t_C lick 
Case "Disconnect" 

mnuConne c t i onDi sconne c t_Cl i ck 
Case "Properties" 

mnuConf igProperties_Cl ick 
Case "Settings" 

mnuConf igSettings_Click 
Case "Franking" 

mnuAc t i on s F r ank i ng_C 1 i c k 
Case "Counters " 

mnuAct ions Count ers_C lick 
Case "DateTime" 

mnuActionsDateTime_Click 
Case "MailClass" 

mnuAct ionsMailClassAd j ust_Cl ick 
Case "TextToDisplay" 

mnuAct ionsTextToDisp_Cl ick 
Case "About" 

mnuH e 1 pAb ou t _C lick 
Case Else 'Unknown button 

MsgBox "Add ToolBar_ButtonClick code. " + Button. Key 
End Select 
End Sub 

Private Sub mnuConf igPropert ies_Cl ick ( ) 

Loadf rmConfig 0 'Display tab 

"Properties" 
End Sub 

Private Sub mnuConf igSettings_Click ( ) 

Loadf rmCdnf ig 1 'Display tab 

"Settings" 
End Sub 

'Information is filled into the fields and window is opended 



Private Sub Loadf rmConfig (nTab As Integer) 
Dim Config As New FMCTRLLib . FMConf ig 



•Create an new 



# 



FMConfig object 

On Error GoTo ErrorHandler : 

in case of an error 

Screen. MousePointer = vbHourglass 
pointer 

Conf ig . Act iveConnect ion = f MainForm . Con 
connection to be used by Config 



'Jump to ErrorHandler 
'Show hourglass mouse 
'Define the 



With frmConfig 

'General information 

. lbFMType. Caption = FMTypeToString (Conf ig. FMType) 
and display FM Type 

. lbSerialNr . Caption = Config . SerialNr 
and display Serial Number 

. lbFMSoftware . Caption = Conf ig . FMSWVer 
and display FM Software version 

If Conf ig . AutoTaxFM Then 
a special Auto Tax app . (Japan) 

. IbApplicat ion. Caption = "Auto Tax" 
the description of the appliction 

If Conf ig . AcquisitonTaxAvailable Then 
Auto Tax app. support Acquisition Tax? 

. IbApplication. Caption = . IbApplicat ion . Caption + " 
with Acquisition Tax" 
End If 

Else 
Tax application 

. IbApplication. Caption = "Standard" 
End If 



'Read 
'Read 
'Read 
If it is 
' Compose 
Does the 



'Non Auto 



' Print image 

. IbNrDecades .Caption = CStr (Conf ig . DecadeNumber) 'Read 
and display Number of Decade wheels 

. lbDecPos . Caption = CStr (Conf ig . DecPointPosit ion) 'Read 
and display position of the decimal point 

. lbFixZeros .Caption = CStr (Conf ig . FixedZeros) 'Read 
and display number of fixed zeros 

If Conf ig. LastDecadeType = LD09 Then 'Read and 

display type of the last Decade wheel 

. lbLastDecade .Caption = "0..9" 'Can be 

all 0 . . 9 

Else 

. lbLastDecade . Caption = "0/5" 'Can 
only be 0 or 5 
End If 

. IbPrintlmage . Caption = CreatePrint Image 'Compose 
the print image (e.g. 99.99 or 9999900) 

'Information about the Base 

. lbBaseModel . Caption = BaseModelToString (Conf ig . BaseModel ) 
'Read and display the Base model 

. lbBaseSof tware . Caption = Conf ig . BaseSWVer 
'Read and display Base software version 

'Features 

.IbAutoDate = BoolToYesNo (Conf ig . AutoDate) 
'Read and display whether FM has automatic date 

. lbMargin. Caption = BoolToYesNo (Conf ig . MarginAvailable) 
•Read and display whether margin is changable 

. lbNrMailClass . Caption = CStr (Conf ig . SettableMailClasses) 
'Read and display the number of available Mail Classes 

1 Franking Modes 

. lbFrankModes = FrankModesToString 'Compose a 

String containing a list of the available Franking Modes 
End With 



Screen . MousePointer = vbDefault 
pointer 

Set Config = Nothing 
obj ect 

f rmConf ig . tabConf ig . Tab = nTab 
appropriate tab 

f rmConf ig . Show vbModal , Me 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 
appropriate message) 

Set Conf ig = Nothing 
object 
End Sub 



1 Show default mouse 
•Disassociate Config 

'Display the 

• Show the window 

' Show default mouse 
•Handle errors (show 
•Disassociate Config 



Private Sub mnuHelpAbout_Click ( ) 

f rmAbout . Show vbModal , Me 
End Sub 



Private Sub mnuSystemlnterf ace_Click ( ) 

frmlnterf ace . Show vbModal, Me 
End Sub 

Private Sub mnuViewStatusBar_Click ( ) 

mnuViewStatusBar . Checked = Not mmiViewStatusBar . Checked 
sbStatusBar .Visible = mnuViewStatusBar . Checked 

End Sub 



Private Sub mnuViewToolbar_Click ( ) 

mnuViewToolbar . Checked = Not mnuViewToolbar . Checked 
tbToolBar . Visible = mnuViewToolbar . Checked 

End Sub 



Private Sub mnuFileExit_Click ( ) 

Unload Me 
End Sub 



'Makes all the GUI elements appear in the appropriate way depending 
on the FromState 



Sub SetFormState (State As FORMSTATES) 

Dim Config As New FMCTRLLib . FMConf ig 
FMConfig object 
On Error GoTo ErrorHandler: 
in case of an error 



' Create an new 

•Jump to ErrorHandler 



Select Case State 
Case fsConnected 

Conf ig . Active Connect ion = Con 
connection to be used by Config 

lbFMType . Caption = FMTypeToS t ring (Conf ig . FMType) 
display FM Type 

IbSerialNr . Caption = Conf ig . SerialNr 
Serial number 

Set Config = Nothing 

object 



Define the 

• Read and 
Read and display 
Disassociate Config 



sbStatusBar . SimpleText = "Connected" 

mnuSystemlnterf ace . Enabled = False 
the GUI elements 



'Write to status bar 
■Enable or disable 




mnuFileExit . Enabled = True 
mnuConnectionConnect . Enabled = False 
mnuConnectionDisconnect . Enabled = True 
mnuConf igProperties .Enabled = True 
mnuConf igSettings . Enabled = True 
mnuAct ions Fr ank ing . Enabled = True 
mnuAct ions Coun t er s . Enabled = True 
mnuActionsDateTime . Enabled = True 
mnuAct ionsMailClassAdj ust . Enabled = True 
mnuAct ionsTextToDi sp . Enabled = True 
mnuViewToolbar . Enabled = True 
mnuViewStatusBar . Enabled = True 
mnuHelpAbout .Enabled = True 
With tbToolBar 

. Buttons (" Interface" ). Enabled = False 

.Buttons ("Connect" ) .Enabled = False 

.Buttons ("Disconnect") .Enabled = True 

.Buttons ("Properties" ) .Enabled = True 

.Buttons ("Settings") .Enabled = True 

.Buttons ("Franking") .Enabled = True 

.Buttons ("Counters") .Enabled = True 

.Buttons ("DateTime") .Enabled = True 

.Buttons ( "MailClass" ) .Enabled = True 

.Buttons ( "TextToDisplay" ) .Enabled = True 

.Buttons ("About") .Enabled = True 
End With 
Case f sDisconnected 

lbFMType . Caption - "(none)" 
IbSerialNr .Caption = " (none) " 

sbStatusBar .SimpleText = "Disconnected" 'Write to status bar 

mnuSystemlnterf ace .Enabled = True 'Enable or disable 

the GUI elements 

mnuFileExit .Enabled = True 
mnuConnectionConnect . Enabled = True 
mnuConnectionDisconnect . Enabled = False 
mnuConf igProperties . Enabled - False 
mnuConf igSettings .Enabled = False 
mnuAct ionsFranking . Enabled = False 
mnuAct ions Counters . Enabled = False 
mnuActionsDateTime . Enabled = False 
mnuActionsMailClassAdjust .Enabled = False 
mnuAc t ions Tex t ToD i sp . Enabled = False 
mnuViewToolbar .Enabled = True 
mnuViewStatusBar . Enabled = True 
mnuHelpAbout . Enabled = True 
With tbToolBar 

. Buttons ( "Interface" ). Enabled = True 

. Buttons { "Connect "). Enabled = True 

.Buttons ("Disconnect") .Enabled = False 

.Buttons ("Properties") .Enabled = False 

.Buttons ("Settings" ) .Enabled = False 

.Buttons ("Franking") .Enabled = False 

.Buttons ("Counters") .Enabled = False 

.Buttons ("DateTime") .Enabled = False 

.Buttons ("MailClass") .Enabled = False 

.Buttons ("TextToDisplay") .Enabled = False 

.Buttons ("About") .Enabled = True 
End With 
End Select 

Exit Sub 
ErrorHandler : 

Screen . MousePointer = vbDefault 
pointer 

ErrorHandler 



'Show default mouse 
'Handle errors (show 




appropriate message) 

Set Config = Nothing 
obj ect 
End Sub 




'Disassociate Config 
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BackStyle 
Caption = 
Height 
Left 

Tablndex 

Top 1 = 

Width 

End 

Begin VB. Label Label2 
Alignment ~ 
BackStyle 
Caption = 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB. Label Label 1 
Alignment = 
BackStyle 
Caption = 
Height 
Left 

Tablndex 

Top 

Width 

End 

Begin VB.Line Line4 
XI 
X2 
Yl 
Y2 

End 

Begin VB.Line Line3 
XI 
X2 
Yl 
Y2 

End 

Begin VB.Line Line2 



"16" 

255 

3000 

10 

0 

255 



3120 
3120 
240 
360 



2 'Center 

0 • Transparent 

"30" 

255 

4680 

9 

0 

255 



2 'Center 

0 1 Transparent 

"20 11 

255 

3480 

8 

0 

255 



2 ' Center 

0 ' Transparent 

"10" 

255 

2280 

7 

0 

255 



2 'Center 

0 ' Transparent 

ii 2_ » 

255 
1200 
6 
0 

255 



4780 
4780 
240 
360 



3600 
3600 
240 
360 





XI 
X2 
Yl 
Y2 



2400 
2400 
240 
360 



End 



Begin VB.Line Linel 
XI 
X2 
Yl 
Y2 



1320 
1320 
240 
360 



End 



Begin VB. Label lbStar 
Alignment 
Caption = 
Height 
Left 

Tablndex 

Top 

Width 



tPos 

1 'Right Justify 
"Start Position:" 



900 
975 



255 
120 
5 



End 



Begin VB. Label lbText 
Alignment = 
Caption = 
Height 
Left 

Tablndex 

Top = 
Width 



420 
975 



255 
120 
4 



1 'Right Justify 
"Text : " 



End 

End 

Attribute VB_Name = " frmTextToDi splay " 
Attribute VB_Global Name Space = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 

' frmTextToDi splay provides an interface to send a text to the 
1 FM that is written to its display 

Option Explicit 

Private Sub cmdClose_Click ( ) 

Unload Me 
End Sub 

Private Sub cmdSend_Click ( ) 

Dim Actions As New FMCTRLLib . FMActions 'Create an new 

FMActions object 

On Error GoTo ErrorHandler : 'Jump to 

ErrorHandler in case of an error 

Screen . MousePointer = vbHourglass 'Show hourglass 

mouse pointer 

Actions . ActiveConnection = f MainForm. Con 'Define the 

connection to be used by Actions 

Actions .TextToDisplay txtText . Text , CInt ( txtStartPos . Text ) 
'Display text on FM 

Screen .MousePointer = vbDefault 'Show default 

mouse pointer 

Set Actions = Nothing 'Disassociate 
Actions object 

Exit Sub 
ErrorHandler: 

Screen. MousePointer = vbDefault 'Show default 

mouse pointer 

ErrorHandler 'Handle errors 




(show appropriate message) 
Set Actions = Nothing 
Actions object 
End Sub 

Private Sub txtStartPos_GotFocus { ) 

SelectAll txtStartPos 
text in the TextBox 
End Sub 

Private Sub txtText_GotFocus ( ) 

SelectAll txtText 
text in the TextBox 
End Sub 




1 Disassociate 



•Select the whole 



1 Select the whole 




Line 19: Class TabDlg.SSTab of control tabConfig was not a loaded 
control class. 




[sec] 

SCC=This is a source code control file 
[ FMCtr 1 Demo . vbp ] 

SCC_Project_Name=this project is not under source code control 
SCC__Aux_Path=<This is an empty string for the mssccprj.scc file> 



Type=Exe 

Reference=*\G{ 00 02 04 3 0-00 0 0-00 00 -CO 00- 00 00000 0004 6 } #2 . 0#0#C : \WINNT 
\System32\STDOLE2 . TLB#OLE Automation 

Ref erence=*\G{6B2638 50-90 0B-llD0-94 84-0 0A0C91110ED}#l . 0#0#C: \WINNT 

\System32 \MSSTDFMT . DLL#Microsof t Data Formatting Object Library 

Reference=*\G{853A99Fl-9752-llD3-819E-005 0 048C72 7A}#l . 0#0# . . 

\FMCtrlLib\FMCtrl\Debug\FMCtrl_d.exe#FMCtrl 1.0 Type Library 

Object={F9 043C88-F6F2-101A-A3C9-08 002B2F4 9FB}#l .2#0 ; comdlg32 .OCX 

Object={831FDD16-0C5C-llD2-A9FC-0000F8754DAl}#2 . 0#0; Mscomctl .OCX 

Object={BDG217C8-ED16-llCD-956C-00 00C04E4C0A}#l . 1#0 ; Tabctl32 .OCX 

Object={A8B3B723-0B5A-101B-B22E-00AA0 03 7B2FC}#l . 0#0 ; Grid3 2 .OCX 

Module=Start ; Start. bas 

Form=f rmMain . f rm 

Form=f rmAbout . f rm 

Form=f rmConf ig . f rm 

Form=f rmlnterf ace . f rm 

Form=f rmCounters . f rm 

Form=f rmDateTime . f rm 

Form=f rmTextToDisplay . f rm 

Form=f rmMailClassAdjust . f rm 

Form=f rmFranking . f rm 

Module=ErrorHnd; ErrorHandler . bas 

Module=Conversions ; Conversions . bas 

IconForm= "f rmMain" 

Startup="Sub Main" 

HelpFile=" " 

Title="FM Control User Application Demo" 
ExeName3 2 = " FMCt rlDemo . exe " 
Command3 2 = " 11 
Name =" FMCt r 1 Demo " 
HelpContext ID= " 0 " 

Description= "Demonstrates the usage of the FM Control library." 

Compat ibleMode= " 0 " 

MajorVer=l 

MinorVer=2 

RevisionVer=0 

AutoIncrementVer = 0 

ServerSupportFiles=0 

VersionComments== "Demonstrates the usage of the FM Control library." 
VersionCompanyName="Ascom Autelca AG Mailing Systems, Switzerland" 
VersionFileDescription= ,, Demonstrates the usage of the FM Control 
library . " 

VersionProductName= M FM Control User Application Demo" 

Compi 1 a t ionType = 0 

OptimizationType=0 

Favor Pent iumPro (tm) =0 

CodeViewDebuglnf o=0 

NoAliasing=0 

BoundsCheck=0 

Overf lowCheck=0 

FlPointCheck=0 

FDIVCheck=0 

UnroundedFP=0 

StartMode=0 

Unattended=0 

Retained=0 

ThreadPerOb j ect=0 

MaxNumberOf Threads=l 

DebugStartupOption=0 




Start = 197, 107, 828, 629, C 

frmMain = 33, 7, 903, 748, I, 267, 58, 792, 463, C 

frmAbout = -2, 6, 789, 751, C, 205, 209, 662, 560, C 

frmConfig = 191, 3, 927, 732, C, 266, 42, 723, 480, C 

f rmlnterf ace = 49, 13, 848, 535, C, 15, 29, 246, 208, C 

frmCounters = 258, 28, 846, 626, C, 379, 4, 813, 271, C 

frmDateTime = 330, 97, 910, 671, C, 535, 21, 785, 240, C 

f rmTextToDi splay = 27, 17, 838, 693, C, 377, 7, 783, 203, C 

f rmMailClassAdjust = 84, 16, 915, 643, I, 470, 10, 781, 192, C 

frmFranking = 12, 8, 799, 703, C, 180, 116, 691, 496, C 

ErrorHnd =9, 9, 897, 651, C 

Conversions =71, 2, 830, 735, C 



